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Intercomm for Systems Programmers is 
designed for systems programmers 


responsible for: 


e Installing, maintaining and tuning 
Intercomm 


e Supporting applications groups 


Experienced Intercomm users should send a 
representative to this class bi-annually to 
remain current. 


The primary objective of Intercomm for 
System Programmers is better Intercomm 
system support. Students learn basic 
system architecture for troubleshooting 
using control block interfaces. Advanced 
system functions are studied to enhance 
performance and reliability. Application 
programming features are reviewed for 
improved support of application groups. 


Students should have attended the Intercomm 


Concepts and Facilities class and the 
Intercomm Application Programming Workshop 


or have equivalent experience. 


A basic knowledge of IBM MVS internals in 
required, including multitasking and 
asynchronous processing; interrupt 
handling; queuing and chaining techniques 
and control blocks. 


At least six months experience with 


Intercomm system support and maintenance _ is 
strictly required. 
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Introduction and Intercomm Review 


Orientation 


Course Objectives 


Intercomm Architecture 


Intercomm Review 


Messages and Commands 


Installation 


system Startup and Closedown 


Mga 


ORIENTATION AND ADMINISTRATIVE DETAILS wr 


@e Pre-requisites 
@e Student records 
@e Student Handouts 


@e Review Course Qutline 


Orientation and Administrative Details 2 


STUDENT HANDOUTS 


Student Materials 


Intercomn Manuals 
Intercomm DSECTS 
Operating Reference Manual 
Basic System Macros 
Messages and Codes 


1,1 Orientation and Administrative Details 
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INTERCOMM FOR SYSTEMS PROGRAMMERS J 


Introduction and INTERCOMM Review 

Message Management--Message Collection and Retrieval 
Execution Management--Dispatcher 

Resource Management--Manager 

Data Management--File Handler 

Application Management--Subsystem Controller 

TP Network Management--the Front End 

INTERCOMM in a MVS Environment 

Multiregion INTERCOMM 

Link Pack Facility 

security/Privacy 

Database Management Support J 
Contingency Processing: Error Situations, Recovery 
Options, Logging and Checkpointing 

ABENDS/SNAPS and Problem Determination Aids 
Performance Measurement: Tuning and Prediction 
Supporting Application Groups 


Orientation and Administrative Details 4 


BETTER INTERCOMM SYSTEM SUPPORT 


Learn: Basic System Architecture 
for 
Troubleshooting using Control Blocks 


Study: | Advanced System Functions 
for 
Performance Enhancement and Tuning 


Review: Application Programming Aids 
for 
Better Support of Applications Groups 


BETTER PROBLEM DETERMINATION AND VENDOR INTERFACE 


Understand: Basic Architecture, 
Installation Procedures, 
Documentation 
for 
Better communication with SEOD, 
Better problem descriptions for MSR 
reporting 


1.2 Course Objectives 


1,2 


BETTER USE OF SYSTEM AIDS 


Documentation 
Technical Information Bulletins (TIBs) 
User Contributed Library (UCL) 
Annual Maintenance which includes: 
Problem Reports (MSRs) 
Experimental SMs 
system Modifications (SMs) 
Automated SM Facility (ASMF) 
New (Revised) Manuals 
Updates to existing manuals (SPRs) 
Early Warnings 
Microfiche 
XREF Listings (IAIM....) 
SEOD Support 
User Group 
Product Enhancement Requests (PERS) 
Ideas and suggestions from other users 
Funded Development (RPQs) 


Course Objectives 


For each Major Component, the following will be covered: 


PURPOSE 
Related Documentation 
Related Features 
INSTALLATION REQUIREMENTS 
Globals and SPALIST Parameters 
Function-definition Macros and Tables 
Assemblies and Linkedit 
Files and JCL 
INTERFACE STRUCTURE - CONTROL BLOCKS AND DSECTS 
Interface Flow, Entry Points 
Related Modules, Subroutines 
FEATURES 
Control Commands 
status Displays 
Execution Macros 
Tuning & Statistics Reports 
Log Codes 
User Exits 
MESSAGES, SNAPS AND ABENDS 
Common Problems 
EXERCISE 
Debugging Problems 


1,3. Intercomm Architecture 


MAJOR MONITOR FUNCTIONS 


Front End (Control Region) 
@e Network Management 


Back End (Satellite Regions) 
Application Program (transaction) Management 
User-written Applications 
Preprogrammed System Applications ‘ 
Application Program Service Routines J 
system Execution Control 
Message Switching, Queueing and Logging 
Resource Management 
system Facilities (Statistics, 

Restart/Recovery, etc.) 


Further Reference: Concepts and Facilities 
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Multithreading vs Multitasking 


Multitasking--Under operating system control 
Interruptable 


Multithreading--Under Intercomm Control (Dispatcher) 


Dispatcher monitors: 
Threads ready to execute 
Threads "waiting" for a time interval to elapse 


Threads "waiting" for an external event to 
complete 


8 Threads "waiting" for an internal event to 
complete 


1.4 Intercomm Review 


1.4 


A MESSAGE THREAD 


IS 


THE LOGICAL PATH 


THROUGH 1 SUBSYSTEM 


INITIATED BY 


ONE MESSAGE, 


Intercomm Review 10 


MESSAGE FLOW OVERVIEW 


SINGLE REGION INTERCOMM 


Intercom Intercomn 
Front End Back End 


Line Message 
Control Processing 


Control 


On-Line System Monitor 
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SUMMARY OF MESSAGE FLOW 


MULTIREGION INTERCOMM 


Satellite 1 


Back 


<a se End Application 
Control SS for subsystems 
Region Queues Satellite 


1 


Line 
Control 


ee 
Region 


Queues 


Region 
Communication 
Management 


Message 
Manage- 
ment 


Satellite 2 


Back 


Se SS for Subsystems 
Term Queues satellite 
Queues 2 
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MAJOR INTERCOMM TABLES 


Tables which define the Multiregion Environment 
e Multiregion Communications Table (MCT) 
e Region Descriptor Table (RDT) 


Tables which define the Front End 
e System Specification 
ENVIRON/SETENV BISPA VCT 


e Transaction Routing (BIVERB) 
Transaction-id Processing program 


Priority Editing 


@e Network Definition 


LINEGRP VTIDTAB 
BLINE LUNIT 
BTERM LCOMP 
BDEVICE VTCSB 
POLLIST VTLSB 
Terminal Lists (switched) VTLVB 
GFE (TCAM) 
Translate Tables 
AIDGRP AIDDATA 


@e Queue Specification (SYCTTBL macro) 
BTAMSCTS VTAMSCTS 


1.4 Intercomm Review 


MAJOR INTERCOMM TABLES (Continued) 


Tables which define individual regions (Back End) 


e System Specification 
SPA 
INTGLOBE/SETGLOBE 


e Terminal Specifications 
STATION 
DEVICE 
DVMODIFY 
BCGROUP 


@e Program Specification (SYCTTBL) 


Language scheduling 
Entry Point Residency 
Queueing 


@e Message Formatting 
MMU -- Map Definition File 
EDIT & OUTPUT -- Edit Control Table 
-~- Qutput Format Table 
@e Storage Resources (ICOMPOOL) 


@e File Control Specification (IXFDSCTA) 
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SYSTEM GLOBALS 


ENVIRON &CNTL Control Terminal Name 
&SEPCHAR System Separator 
&CLDWAIT Closedown Message Flush Interval 
&FEPRTY Front End Execution Priority 
&CONVER Conversational CRT Control 
&GFE G.F.E. and/or Extended TCAM Terminals 
INTGLOBE &VSSYSTM VS Operating System (VSI/MVS) 
&MVS MVS/370 
&XA MVS/XA and MVS/ESA 
&BTAM BIAM/GFE or TCAM Front End 
&VTAM SNA/VTAM Front End 
&MULTREG Multiregion Intercom 


Further Reference: BTAM Terminal Support Guide 


Operating Reference Manual 
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SYSTEM TABLE INTERRELATIONSHIPS 
SYSTEM PARAMETER AREA (SPA) 


First fullword 
of 


OS Save Area 


INTSPA INTSCT 
- Se 
a 


sct indices 


PMISTATB 


STATION 
DVMODIFY 


SPAEXT File 
Control 
Table 


BTSPA/VCT BIVRBTB 


ravera _| 


End 


system Network 
Parameters | Definitions 
FEINDX 
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SYSTEM TABLE INTERRELATIONSHIPS 
SYSTEM PARAMETER AREA (SPA) 


First fullword 
of 
OS Save Area 


SPA | spaextad pavrbth pan 
USER SPA beeen cee cere 

SPA EXTENSION | sexvsinc ay exbtspc 
SUBSYSTEM 


CONTROL | 
TABLE PO 


SCT INDICES over la 

orted 
BTSPA btvrbtac 
BTVERBS 
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disk 
overflow 


, 


core 
queue 


APPLICATION TABLE INTERRELATIONSHIPS 


BTVERB 
SSCH 
SSC 


EDIT=YES 
NO 
BQ 


SYCTTBL 


SUBH 
SUBC 
Entry 
Point 
Disk Queue 
Core Queue 


Application 


edit=yes 


mapgroup 
oft no, 


1.4 Intercom Review 


ECT 


USER-DEFINED TABLES 


LISTED BY NAME 


INFORMATION GIVEN: 


@ MACRO’s or DC Statements 
to generate table 


@ Applicable DSECT’s 


@e Applicable Files 


e Brief Description 


Further Reference: Operating Reference Manual 
(Appendix A) 
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MESSAGES FROM INTERCOMM TQ THE OPERATOR 
SYSTEM MESSAGES 
MESSAGE FORMAT 


Message-id - Region-id - Text 
JOB/REGION IDENTIFICATION (SEXWIOID) : 
Jobname -- Single Region Intercomm 
CONTROL -- Control Region 
Region-id -- Satellite Region (SEXMRID) 
MESSAGE IDENTIFIER: iiimmnnnx 
iii - Intercomm Message Prefix (SEXWTOPR) 


mm - Issuing module/component 
nnn - Message number within component 


xX  - Message Type: 
I = Informational only - PMIWTO 
A = Action Required ~ PMIWTO 
R = Reply Required - PMIWTOR 


Further Reference: Messages and Codes 
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SYSTEM MESSAGES (continued) 


SPALIST WTO PARAMETERS 


WIOPFX 

FMCSWTO 
FPMIWTO 
SMCSWTO 
SPMIWTO 


Programming Macros: 


-- Prefix ID (Default=INT) 
-- Force System Routing 

-- Force ICOM Routing 

-- Suppress System Routing 
-- Suppress ICOM Routing 


USER MESSAGES 


PMIWTO 
PMIWTOR 
VWTO 
VWTOR 


User Routing Exit: USRWTO--called by WTOMOD 


Further References: Basic System Macros 
Messages and Codes 
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MESSAGES FROM THE OPERATOR TO INTERCOMM 
SYSTEM COMMANDS 


CONTROL TERMINAL CPU CONSOLE 


ISSUE COMMANDS WTOR REPLYS 


COMMAND RESPONSES 


SYSTEM INFORMATION 


SYNTAX/PROCESSING ERRORS -- ISSUING TERMINAL 


CONTROL TERMINAL COMMAND RESTRICTION 


BIVERB verb, SECUR=YES 


PRINTED LIST: QUTPUT-- SYSMSG (CPU Console) 
SYSPRINT 
USERWTO 
F2 Log Code 
INPUT -- Fl Log Code (USRBTLOG) 
SYSMSG (CPU Console) 
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C 


COMMAND PROCESSING 


8 STATISTICS/STATUS 


@ NETWORK CONTROL 


8 SECURITY CONTROL 


Operator id Terminals 
Transactions/Commands 
Regions subsystems 


@ MONTTOR CONTROL 
DYNAMIC LOADING 
CLOSEDOWN 
FILES 
SUBSYSTEMS 
QUEUES 
FUNCTIONS 
MULTIREGION 
GPSS 
CORE/TABLE DISPLAYS 


SPALIST GPSSEC=FEQVLOG 
SSNUM=MAX-GPSS-STRT/STOP-FUNCTIONS 
MDELY MAXLOAD 
MMNCL STOCORE 


Further Reference: System Control Commands 


1.5 Messages and Commands 
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INSTALLATION STANDARDS 


LIBRARIES source executable 
SiMeaas MOD... 


as released 


REL SYMREL MODREL 
production/ASMF 
LIB SYMLIB MODLIB 


Tables/User Exits/Mods 


USR SYMUSR MODUSR 
Experimentals 

XM SYMXM MODXM 
test 

TEST SYMTEST MODTEST 


INTERCOMM-SUPPLIED PROCS 


ICOMLINK Macro 
ICOMGEN Macro 


Further References: Installation guide 
Basic System Macros 
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ASMOC 
ASMPC 
ASMPCL 
COBUPC 
COBUPCL 
DEFSYM 
INTASMF 
LIBE 
LIBEASM 
LIBECOBL 
LIBELINK 
LKEDP 
PLIXPC 
PLIXPCL 
PMIPCH 
PMIPRT 
SYMGEN 


Further Reference: 


INTERCOMM PROCEDURES 


Off-loaded via Installation Job #2 (COPYROX) 


Assemble BAL source, create object module 
Assemble a BAL source module 

Assemble and linkedit BAL source module 
ANSI COBOL source compile 

ANSI COBOL compile, link (NCAL option) 
Generate LOGCHARS language symbols (MMU) 
ASMF processing 

Update a source member 

Update, assemble BAL source 

ANSI COBOL update, compile and link 
Update, assemble and link BAL module 
Linkedit load modules 

Compile PL1--Optimized module 

Compile, link PL1--Optimized module 

Punch da PDS (source) member (PMIPCH1) 
Print a PDS (source) member (PMIPRT1) 
Generate language dependent symbolic map (MMU) 


Installation Guide 
Operating Reference Manual 


1,6 Installation 
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ASMPCM 
COBPC 
COBPCL 
COBUPCLD 
COMPRESS 
COPY 
FORTLINK 
LIBCOBDL 
LIBECOB 
LKEDE 
LKEDO 
LKEDPL1 
LKEDT 
OPSCN 
PATCH 


OTHER PROCEDURES AVAILABLE ON SYMREL 


Assemble a macro 

Compile COBOL-F source module 

Compile and linkedit COBOL-F module 
ANSI COBOL compile and link 

Compress a PDS 

Copy PDS members or compress a PDS 
Compile and link FORTRAN module 

Update, compile, link ANSI COBOL 

ANSI COBOL -- update, compile source module 
Link object and load modules 

Link object modules, create load module 
Linkedit PL1 modules 

Linkedit load modules to MODSCR (test) 
Execute OPSCAN -- assembler source scan 
Patch a load module -- execute IMASPZAP 


Further Reference: Qperating Reference Manual 


1.6 Installation ee 


BATCHPAK 
CHANGER 
CREATEGF 
DDQPRINT 
DUMPREST 
TAIMCOCR 
TAIMGOC2 
TAIMMOCR 
TAIMOPCD 
TAIMXRF1 
TAIMXRF2 
TCOMFEOF 
KEYCREAT 
LIBCOMPR 
LOADMAPS 
LOGANAL 
LOGMERGE 
LOGPRINT 
OPSCAN 
PMIEXLD 
SMS 


Further Reference: 


UTILITIES/TABLES 


Intercom Batch Interface 

Produce change deck from two PDS members 
Preformat BDAM data set 

Print DDQs and/or QIDs 

Print/Dump/Restore Store/Fetch data set 

Copy Code Cross-reference Printing 

Global Symbols Cross-reference Printing 
Macros Cross-reference Printing 

Character Strings and Miscellaneous Scans 
Csect Sizes, Entry Points, Ext. References, Scan 
Print Csect Sizes, etc. 

Recover from missing End Of sequential File(log) 
Preformat keyed BDAM data set 

Compare PDS source members 

Load MMU Map Groups to Store/Fetch data set 
Analyze Log - produce performance statistics 
Merge 1 to 3 Log files to master Log data set 
Format and print entire log/selective entries 
Cross-reference Scan BAL op codes 

Load RCT/VRB/DES/SECO00 data sets 

Table of applied SMs 


Operating Reference Manual 
ASMF Users Guide 
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ASMF Facility 
Specification Macros: SMLEVEL - SMS, XMS 
SMPROF - ASMFPROF 
Control Specifications: 
e Macros 
e Control Cards 


e Execution Parameter Overrides 


Load Modules for Execution: 


INTASMF SMS 
SMACCEPT XMS 
SMAPPLY ASMFPROF 
SMCOPY INSORT 
SMDELET LOGIT 
SMMAIN PRTLOG 
SMREJECT PUTSSI 
SMSTAT READD 
SMSTOW 


Procedure: INTASMF 


Further Reference: ASMF Users Guide 


1.6 Installation 
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SPALIST MACRO 
General System Parameters 


GENERATION TYPE A={A} CSECT 
{B} DSECT 
{BOTH} 
,EXTONLY={YES } 
{NO} 
TEST MODE , TSTEND={DUMP  } 999 Abend 
{NODUMP } 
{NRCD } 
SYSTEM CONTROL: , CCNID={CONTROL-TERMINAL-ID} 
{CNTOL } 


, SEP={ SYSTEM-SEPARATOR-CHARACTER} 
(6B 


Further Reference: Basic System Macros 
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START-UP 
EXECUTION MODES 


STARTUP-- Normal (Previous Execution Ended Normally) 


RESTART-- Abnormal (Previous Execution Ended Abnormally or 
Cancelled) 


TEST MODE-- Test Input (Back End Only) 


JOB CONTROL 

// EXEC ~INTRCOMM, PARM=STARTUP 
RESTART 
RESTRNL 
TEST 
TESTR 
TESTRNL 


SPA + X’110’ = SPAMODE: X‘00’ - STARTUP 
X’04" - RESTART 


X'08’ - TEST 
X‘10’ - BATCH Processing 


Further Reference: Operating Reference Manual 
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SETENV 


MULTIR 


SPALIS 


After 


LOG CO 


COMMAN 


Furthe 


Let 


EXECUTION OPTIONS 
GLOBAL &CLDWAIT 
EGION STARTUP -- RDT NUMBER (control region only) 


COMMAND -- COMM, START, {ALL } 
{REGION-IDs} 


T: CLOSEDOWN -- 
CLDNLIM={NRCD-TIMEOUT-INTERVAL } 
{300 } 
Timeout: CLDTO={DUMP } 125 Abend 
{ NODUMP } IMCD 
DES: X'OF’ -- STARTUP BEGUN 
X'AA’ -- CLOSEDOWN COMPLETE 
DS: e NRCD 
e IMCD 
e ABND 
r References: Operating Reference Manual 
system Control Commands 
system Startup and Closedown 
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LOGIC OF STARTUP 


Module Name: STARTUPS, Csects PMISTUP, STUOVLY 
Initialize Operating System/CPU Environment 
Initialize Intercomm Environment: 


Load Pools, BIVRBIB 
Mode/ESTAE/ESPIE/SYSEVENT 
Qpen SNAP data set(s) 
CALL Facility startup modules: 

Link Pack 

STRT/STOP 

store/Fetch 

Dynamic Linkedit 

File Handler 

subtasking 

Multiregion 

DDQ 

Data Base 

Front End 

MMU 

security 

system Statistics 
Log Buffers/Restart/Checkpointing 
Disk Queues - Front End/Back End 
SCT 
Dispatcher Q Entries 


Exit to Dispatcher 


Further Reference: Operating Reference Manual 


1.7. System Startup and Closedown 


32 


STARTUP 


Messages to CPU Console/SYSMSG 


indicate progress through startup 


INTERCOMM VERSION Release-number 


STARTING - LAST SM IS SM-number 


SPA=SPA-address 


User Exits: USERINIT 
USRSTART 
USRSTRT1L 


Further Reference: Operating Reference Manual 
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CLOSEDOWN FUNCTIONS 


Closedown Occurs 


1. In test mode when all S/S queues are empty. 
In live mode when NRCD or IMCD is entered. 
In Satellite Region also if COMM,DOWN,Region-id (NRCD) 
or COMM, QDOWN,Region-id (IMCD) is entered. 


Closedown Processing -- CLOSDWN3 (PMICLDWN Subsystem) 


1. Suppress input from Front End, Queue closedown message 
for each Satellite Region if Multiregion Intercom. 

2. Process all queued messages (NRCD), or complete messages 
in progress (IMCD). 

3. Issue closedown message via USRCLOSE, call closedown 
user exit - USRCLSEL. 

4, Front End transmits all remaining output, then closes 
down, 
Close Data Base. 
Issue last Checkpoint, flush and close Log, 

7. Produce final Statistics Reports, and closedown 
subsystem/Subroutine Statistics Reports. 

8, File Handler Termination, close all Files. 


Further References: Operating Reference Manual 
system Control Commands 


Multiregion Support Facility 
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MESSAGE MANAGEMENT 


Introduction 


Installation Requirements 


Interface: Structure and Processing 


Features 


Messages, Snaps and Abends 


Exercise 
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Za 


MESSAGE MANAGEMENT 
MESSAGE COLLECTION AND RETRIEVAL 


Purpose: QUEUING 
RETRIEVAL 
LOGGING 
Introduction 
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2.1 


Queue: 


MESSAGE MANAGEMENT 
Message Collection and Retrieval 
DEFINITION OF TERMS 


A list of items (messages) waiting for service 


Queuing Techniques: FIFO 


Queue 


Log: 


Priority 


Storage: Main storage 
Disk 


A sequential dataset which contains images of 
messages and checkpoint/restart information, 


Logging Options: Single Log/Region Logs 


Disk/Tape 

By Terminal and/or By Subsystem: 
-- Synchronous/Asynchronous 
-- Restart 
-- No logging 
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INTERCOMM MESSAGE QUEUES 


Region Q 

Contains: Messages awaiting interregion transfer 
Technique: FIFO 

Medium: Main storage; overflow to DDQ 

Contains: Messages for subsystems in an inactive region 


Messages for ‘stopped’ subsystems 
Technique: FIFO 


Medium: DDQ 

Subsystem Q 

Contains: Messages awaiting processing by the subsystem 
Technique: FIFO, Priority 

Medium: Main storage and/or BDAM data set 

Terminal Q 

Contains: Messages awaiting transmission to the terminal 
Technique: FIFO, Priority 

Medium: Main storage and/or BDAM data set 
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Message Management--the Main Queueing and Retrieval Routines 


In Control Region: 
Places, retrieves dnd logs messages on control region 
Subsystem queues. 
Places and logs messages on terminal queues. 
Transfers and logs messages for satellite regions, 
Receives messages from satellite (batch) regions for: 
terminals 
transfer to another satellite region 
transfer to a control region subsystem, 


In a Satellite Region: 
Receives messages from control region. 
Places, retrieves and logs messages on satellite region 
Subsystem queues. 
Transfers messages for terminals or other (non-local) 
Subsystems to control region. 
Transfers and logs messages within the satellite region. 


In a Single Region Intercomm: 
Places, retrieves and logs messages on the Subsystem 
Queues. The messages might be input messages from 
terminals or messages being switched between subsystems. 
Places and logs messages on terminal queues, 
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F3 


Fl 
FRONT END 
TERMINAL 
QUEUES 


F2 


FESEND 


2.1 INTRODUCTION 


APPLICATION 
SUBSYSTEM 


SUMMARY OF MESSAGE FLOW 
SINGLE REGION INTERCOMM 


Loc CoDES 


QUEUING 


MESSAGE 
COLLECTION 


Ol 


SUBSYSTEM 
QUEUES 


APPLICATION 
SUBSYSTEM 
l 


FA 
SUBSYSTEM re QUTPUT 
CONTROLLER UTILITY 
SUBSYSTEM 
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J 


Control 
Region 


F 1 


Line Control 


FESEND 
MSGCOL 


C2 
MRQMNGR 


(Region @ [) 
subsystem 
Hold Q 


MRINPUT 


2.1 Introduction 


SUMMARY OF MESSAGE FLOW 
MULTIREGION INTERCOMM 
Log Codes 


Satellite 
Region 1 


MRINPUT 


MSGCOL 


subsystem Ql) 
subsystem 
Controller 
30 FA 
—— 
1 


FESEND 
MROTPUT 


Application 


4 
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FURTHER REFERENCES: 


Operating Reference Manual 


BTAM Terminal Support Guide 


SNA Terminal Support Guide 


Dynamic Data Queuing 


Multiregion Support Facility 
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Global Settings 
Definition Macros 


Assemblies 


Linkedit 
(automatic) 


Ue ES Ce OS 
PD A SE A TS PE ee TE a A pees 


STANDARD 
FRONT END QUEUES 


STANDARD 
BACK END QUEUE 


MRS DDQs 


MESSAGE COLLECTION/RETRIEVAL 
INSTALLATION CHECKLIST 


SETGLOBE SOUTEXIT 

SYCTTBL BTERM LUNIT 

PCENSCT BIVERB CHPRTY) 

INTSCT (BIAMSCTS) = (VTAMSCTS) 

Modules CALCRBN BLMSGCOL 
COBPUT BMHOOO 

FESEND MRINPUT VTQMOD 

OUT3270 MROTPUT QUEUEMOD 

OUTDS40 MRQMNGR PMIRETRV 


Tables = VTAM/BTAMSCTS INTSCT 


SE EE AES A LS TS SE TE EE TE AS CE ES Se CED SG CS PE OS SN EE CE OS CE OO 
EE COEF Ee A CS A a A SS oS So ee oe OE AS AO RE GR NS CI SS CEE CN EE US RR 


DDname Preformat 
BTAMQ CREATEGF 
VTAMQ 

PMIQUE CREATEGF 
Defined in CREATEGF 


RUD and DDS LE 


2,2 Installation Requirements 
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ESTABLISHING THE REGION QUEUES AND SUBSYSTEM HOLD QUEUES 9 
RDT MACROS: REGION BLOCKED=YES/NO (DDQ) 
COREQ=number-of-entries 
DDNAME=DDQ-data-set-name 
QSPACE=number-blocks-per-DDQ-Extent 
SUBSYS ALT=alternate-region-id 
IFDOWN=QUEUE/FLUSH 
QSPACE=number-blocks-per-DDQ-extent 


Estimating Space Requirements: 
Depends on -- traffic volume 
-- satellite region activation 


specifying Main Storage portion: COREQ 2 
At least one per subsystem in satellite region. More 
than one for heavy traffic subsystems, or when disk 
overflow processing overhead to be avoided. Use Log 
Analysis for subsystem activity, See C1/C2/C3 log codes. 


Defining disk space: (see also DDQ manual) 
Region queues: for overflow at peak periods 
Hold Queues: depends whether message can be rejected, 
or sent to alternate region. If to be held, will be 
put on REGION’S DDQ data set, or if not specified, 
that of another region. 
Be careful of data set contention in specifying DDQ(s) 2 


2.2 Installation Requirements AA 


ESTABLISHING A TERMINAL QUEUE 


Estimating Space Requirements: 
Depends on -- CRT processing (one-in, one-out) 
-- Multi-page responses (printers) 
-- priority queue necessity 
-- critical response time 


specifying main storage portion: NUMCL 
For CRTs -- at least 2, more if multiple responses. 
For printers -- at least 10, more if more pages per report 
or used by many CRTs for reports. 
Control Terminal and CPU console -- at least 20, allow for 
Status/statistics verbs used (STAT, VTST, TALY, etc.). 


Defining disk space: 
For occasional overflow, or overflow of multi-response 
messages to hard-copy device. 
Depends on -- type of processing (CRT, conversational) 
-- volume of responses expected. 
Be careful of data set contention for high volume and 
multi-response terminals (slows down response time), 


BLKSIZE=Av-msg-len times (NUMCL+1) -- See F2 log records 
-- Use Log Analysis 


Maximum number of disk data sets is 63 per VTAM or BTAM, 


2.2 Installation Requirements 45 


MACROS USED TO DEFINE TERMINAL QUEUES 


Referencing a Terminal Queue 


BTVERB HPRTY= LUNI T/LCOMP 
BTERM (QNUM=) Csect: BTAMSCTS Csect: VIAMSCTS 


Defining a Terminal Queue 
BTERM/LUNIT generates SYCTTBL TYPE=BTAM/VTAM 


DISK QUFUF SPECTFICATTONS 


,DFLN = DISK-QUEUE-DDNAME 


,PCEN = {PERCENTAGE } 
{ (PERCENTAGE, HUNDREDTHS) } 
{100 

CORF QUFUF SPFCTFICATTIONS 


, NUMCL=NUMBER-OF-CORE-QUEUE-ENTRIES 
, PRYMSGS=NUMBER-OF-PRIORITY-QUEUE-ENTRIES 
Max terminals per type with priority Q=255 


2.2 Installation Requirements 


BTAMSCTS 


% 


INTQA 
INTQB 


BTAMOUTQ 


Q02 


Further References: 


2.2 Installation Requirements 


TERMINAL QUEUES EXAMPLE 


CSECT 
ENTRY 


SYCTTBL 
SYCTTBL 


SYCTTBL 


SYCTTBL 


SYCTTBL 


SYCTTBL 


PMISTOP 


PCENSCT 
END 


INTQA, INTQB, BTAMOUTQ 


TYPE=BTAM, NUMCL=1 
TYPE=BTAM, NUMCL=1 


TYPE=BTAM, NUMCL=2, 
DFLN=BTAMQ, PCEN=5 
TYPE=BTAM, NUMCL=2 
DFLN=BTAMQ, PCEN=10 
TYPE=BTAM, NUMCL=2 
DFLN=BTAMQ, PCEN=5 
TYPE=BTAM, NUMCL=2 
DFLN=BTAMQ, PCEN=10 


BIAM Terminal Support Guide 
SNA Terminal Support Guide 
Basic System Macros 
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ESTABLISHING SUBSYSTEM QUEUES 


Estimating Space Requirements - depends on: 


-- priority verb specification 

-- response time requirements 

-- traffic volume (peaks or steady) 
-- concurrent processing 


specifying main storage portion: NUMCL 


At least 1 or at least the same as MNCL. 


More if response time critical--relative to number of 
verbs associated with the subsystem, and number of 
terminals entering those verbs, or number of other 
Subsystems which may queue messages for this 
subsystem. Also depends on concurrent processing. 


Priority queueing depends on response time requirements. 


Defining disk space - depends on: 


2.2 


-- traffic volume vs. core queues 
-- expected traffic volume peaks 


BLKSIZE = Av-msg-len times (NUMCL+1)--see 01 log records 


Maximum number of disk data sets is 63, 


Installation Requirements on 


MACROS USED TO DEFINE A SUBSYSTEM QUEUE 
BIVERB SSCH= 
SSC= 
HPRTY= 
SYCTTBL TYPE=INT (default) 


DISK QUFUF SPFCTFICATTONS 


,DFLN = DISK-QUEUE-DDNAME 


,PCEN = {PERCENTAGE } 
{(PERCENTAGE, HUNDREDTHS) } 
{100 

CORFE QUFUF SPECIFICATIONS 


, NUMCL=NUMBER-OF-CORE-QUEUE-ENTRIES 
, PRYMSGS=NUMBER-OF-PRIORITY-QUEUE-ENTRIES 


MNCL=MAXIMUM-CONCURRENT-PROCESSING-THREADS 


NOTE: Maximum SYCTTBLS with PRYMSGS parameter coded for 
priority Q=255 


Further References: Operating Reference Manual 
Basic System Macros 
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DETAILED MESSAGE FLOW 
SINGLE REGION INTERCOMM 


INPUT 
LINE 
HANDLER 


BMHOO0 


OUTPUT 


MESSAGE HANDLER 


FRONT END 


BLHOT 


HANDLER 


BMHI NOOO BIQUEUE BMHOTDEQ 
) 
t QUEUE 
[ 
BLMSGCOL BLMSGCOL 
- ENTRY: rae, es ee NG os ns ENTRY: 
MSGCOL MSGCOLQ 
TEM 
SYCT400 
SUBSYSTEM 
RETRIEVAL CONTROLLER | 
HESENU 


APPLICATION 
SUBSYSTEM 


SERVICE 
ROUTINES 


FILE HANDLER, 
UTILITIES, S/F 
DDQ, MMU, etc, 


STRUCTURE AND PROCESSING 


2,3 INTERFACE: 


Front END 
SEND 
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MESSAGE COLLECTION 


BLMSGCOL -- message queueing routine 
Called by: Front End 
Subsystems (Intercomm and User) 


FESEND 
Intercomm System Modules 
MRINPUT 

Entries: MSGCOL -- for Back End Queueing 


MSGCOLQ@ -- for Front End Queueing 


Parameter List: 
1. Message Address 
Byte 1 -- Switches 
X'D1l’ -- Edit Before Queueing 
X'D2" -- Lock exempt verb 
X'D4’ -- for Satellite region: passed from 
control region (from MRINPUT) 
2, SPA Address (MSGCOL) -- Subsystem Q or 
BISPA Address (MSGCOLQ) -- Terminal @ (SPA if VTAM) 
3, BTAM/VTAM Queue (SYCTTBL) Address (MSGCOLQ) 


BLMSGCOL -- Increments SEX#SATM--count of messages queued for 
aq satellite region 

MRINPUT -- increments SEXMRMSI--count of messages received 
(in CR-from SRs; or in SR-from CR) 


2.5 Interface: Structure and Processing 
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MULTIREGION MESSAGE QUEUEING 


BLMSGCO ONTROL REGION 
MS GCOL 


CONTROL 
REGION 


=“ 
QUEUE IN SNAP 
CONTROL 127 


SATE REGION 
BLMSGCOL 


SET RSCH To 
X'OOE9’ For 
MROTPUT 


2.5 INTERFACE: STRUCTURE AND PROCESSING 


yes 


SEARCH ONLY 


REGION-ID 
MRQMNGR 


SEARCH 
ENTIRE RDI 
MROMNGR 


RESTORE RSCH 
QUEUE FOR 
SUBSYSTEM 
or MROTPUT 


RESTORE RSCH 
SNAP 
i277 
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SUBSYS WITHIN 


MESSAGE COLLECTION -- BLMSGCOL 


( _ DETAILED DESCRIPTION: 
Back End entry point MSGCOL 


1, 


mM VU F&F WW RO 


10, 


ll, 


2.5 


Move C‘2’ to MSGHLOG, if the field did not contain 
C‘R’, or C’P’ (restarted messages). 

If EDIT=BQ, or in MRS Control Region, skip to step 4, 
Log the MSG (C’2" changed to X‘Q1’ by LOGPUT). 

Check for valid MSGHQPR, if valid, skip to step 6. 
Produce SNAP 127, log C’5’, WIO, 

If not Lock Exempt, but in MRS CR and terminal locked 
to SR, skip to step 9, 

Find SCT from MSGHDR RSCH, if not found and locked to 
SR or not MRS, go to step 5. If not SR, go to step 9, 
In Satellite Region--if found go to step 9, else queue 
for MROTPUT, unless CR input--if so go to step 5, 

If EDIT=BQ, call EDIT, if edited message returned, log 
the MSG (if not MRS CR). If SCT already found, skip to 
Step ll, 

If MRS, call MRQMNGR to queue for SR. If locked to a 
region--MRQMNGR searches only RSCH codes for that 
region, else checks entire RDT using binary search of 
index. If done, skip to step 16. If queue full go to 
Step 15, If not found, but locked to SR, go to step 7, 
Else go to step 5 (no WIO). 

If PRTY Q is present and MSG is PRTY MSG, try to find 
Space on PRIY Q@. If space found, queue the MSG and 
Skip to step 13 (MSGCOL) or exit (MSGCOLQ). 


Interface: Structure and Processing 53 


12, 


13, 


14, 


13: 


16, 


MESSAGE COLLECTION -- BLMSGCOL (continued) 


Queue MSG on normal queue (core, or disk if core 
full). If no room on disk, go to step 15 (16 if 
MSGCOLQ) 

If subsystem not schedulable, return appropriate 
message to entering terminal. Go to step 15, 

Post SPACTIVE ECB for Overlay A SCTs, post SCTRECB for 
resident SCTs. 

Check saved R.C. If not zero, issue error WTO. Log 
MSGHDR with C’6’ (Qfull) or C’8’ (1/0 error) if 
entry=MSGCOL. 

Free MSG area if error or on DISK Q and return, 


Front End entry point MSGCOLQ 


i 
2. 


Note: 


2.5 


set terminal queuing flag. 
Do steps ll, 12 and 16. 


FESEND issues error message if non-zero return code 


from call to BTQUEUE or VTQUEUE (if VTAM terminal), 
which called MSGCOLQ. 


Interface: Structure and Processing 54 


PRIORITY QUEUEING 


Assuming you coded on your SYCTTBL/BTERM/LUNIT macro 
PRYMSGS=3 
The parameter coded will expand to 2 1-byte fields: 
SCTPRNDX--the index to this SCTs priority queue 
(if zero, there is no priority queue). 
SCTPRCNT--the current number of messages on the 
priority queue (if zero, no priority messages queued). 
There are 3 base addresses for the priority queues: 
SEXPRNDX--for the Back End SYCTTBLS, 
SEXBTNDX--for the BTAM/TCAM Front End BTAMSCTS, 
SEXVTNDX--for VTAM Front End VTAMSCTS. 
To find the messages, take SCTPRNDX, subtract 1 and multiply by 
4 (SLL 2 bits). Add the result to the respective base address. 
This result will point you to the address of the slot with the 
first valid message on the priority queue. MSGCOL goes down 
chain looking for first empty (0) MSG-addr slot. When finds 
CHAIN pointer and Next-Q-slot-address are =, priority Q is 
full. Retriever moves CHAIN to Next-Q-slot-address and sets 
MsG-addr to 0 (to keep FIFO Q), 


Next-Q-slot-address 


fo ts 
[msG-addr|cuamn | o  |cwamn | o | cHain 
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QUEUEING AND RETRIEVAL LOGIC 


Adjust Core Q SCT Found 
write pointer 


Add to end yes 
a : i %. 
no 
no 
O 
é 


yes 


BLMSGCOL 


Priority Q\Q20 
empty 

yes 

core Q yes 
empty 

no 


2.3 


Retrieve 
msg from 
top of 
Core Q 


Interface: 


Retrieve 
msg from 
top of 
priority Q 


Read Block 
from 
Disk Q 


Adjust 
Core Q 
read 
pointer 


Retrieve 
lst msg 
in Block 


Structure and Processing 


PMIRETRV 


Add others 
in Block 
to Core Q 


ng jadd to end 
priority Q 
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STRUCTURE OF TERMINAL QUEUES 


WD1 of 
OS S/A 


SPA PAFXTAD 


SPAEXT 


BTSPA 


BTAMSCTS 


Entry: 
BTAMOUTQ rR 


BTERM QNUM=3 


VCT 


VTAMSCTS R 


LUNIT/LCOMP #3 


2,5 Interface: Structure and Processing 
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WD1 of 
OS S/A 


SPA 


SPAEXT 


SCT 


Dsects: 


STRUCTURE OF SUBSYSTEM QUEUES 


for 
Q Information each 


subsystem 


SPA -- SPALIST 
SPAEXT -- SPALIST CEXTONLY) 
SCT = -- SCTLISTC 


ENTRY label for first SYCTTBL in SCT: SCT$STRT 
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SYCTTBL 
Core Queues 
(Main Storage Portion--Wraparound) 


SCTBCLP NUMCL=4 SCTECLP 


a(MSG1) a(MSG2) a(MSG3) 


SCTCNMC=3 SCTCLWP SCTCLRP 


If SCTCNMC not O and SCTCLRP=0 -- no messages read (dequeued) 
Since messages put on Q. SCTCLRP set to zero by MSGCOL when 
puts first message in core Q (in slot pointed to by SCTBCLP), 
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QUEUE CONTROL COMMANDS 
Multiregion: --- Satellite Region and Subsystem Hold Queues J 
@ VvvVVV$FLUSH 
@ VVVVSFLUSH$SS 
@ vvvv$STOP 
@ vVvvV$STOP$SS 
@ VVVVSSTART 
@ VVVWVSSTART$SS 
Single (Control) Region: --- Terminal Queues Only 
FLSH 
RLSE 


QHLD 
QRLS 


All Regions: --- Subsystem Queues Only 
@e SSFL 
Further Reference: System Control Commands J 
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Multiregion: --- 

@ vWvwvS$sTATUS$ 

Single Region: --- 

@ TALY$BE(subsystem-code) 
@ TALY$FE(tid) 

e@ TALY$NQ/FQ 


TUNING and STATISTICS: System Tuning Statistics 
SAM 
Log Analysis 


DSECTS: SCTLISTC -- BLMSGCOL, PMIRETRV, VTQMOD 
RDTSECTS -- MRQMNGR 
MSGQWRK -- BLMSGCOL 
MSGHDRC -- all 
SPALIST -- all 
PTRDSECT -- BTAM/TCAM Front End 


BISPA -- gall Front End 
PVRBTBLE -- all Front End 
VCT -- VTAM Front End 


User Exits: INQEXIT (BMHOOO) Input Message - BTAM/TCAM 
INQUEUE (VTRECVE) Input Message - VTAM 
USROTEDT (FESEND) Output Message - All 
OTQUEUE (VTQMOD) Output Message - VTAM 
USRB{LOG (BTSEARCH, VTRECVE, VIO1MOD) Log Fl-input 


2.4 Features 
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STARTUP ALLOCATION OF QUEUE SPACE 
Executed by CALCRBN 


J 
DD1 = 100 blocks 
ie 

sycttbl... nsw wes 
dfln=DD1, (18-95, 
pcen=50 — unused 
sycttbl... 
dfln=DD1, 
pcen=50 

DD2 = 48 blocks 
sycttbl... 
dfln-DD2, |f = J 


pcen=100 


sycttbl... 
dfln=DD3, | ?——~™ 


unused 


pcen=90 


ROUNDS DOWN TO MULTIPLE (minimum) of 8 
OVERALLOCATION RESULTS IN ABEND 44 


NOTE: NUMFILES in CALCRBN set to 189 to allow for maximum of 
63 Disk Q Data Sets per type (BTAM,VTAM and/or subsystem 


queues) . J 
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MESSAGE COLLECTION -- SNAP 127 


Subsystem not found in SCT 


Closedown 


BIVERB coding defines SSCH and SSC combination that 
is not defined for any subsystem in the SCT (Single 
Region Intercomm) . 

MSGHDR RSCH/RSC code for message to be transferred 
from one subsystem to another is not defined for 
any subsystem in the SCT (program error) for a 
Single Region Intercomn. 

MSGHDR RSCH/RSC code does not match any SUBH/SUBC 
code for a subsystem in SCT, nor for any defined 
Via SUBSYS macro in RDT (Multiregion Intercomm -- 
Control Region). 

RSCH/RSC code does not match any SUBH/SUBC code for 
aq subsystem in the Satellite Region SCT when passed 
directly from Control Region (Multiregion Intercomm 
-- Satellite Region). 

subsystem Code not X’00’, C’J’ 

Must be so defined for PMICLDWN in SCT for both 
Control (single region) Intercomm and all Satellite 
region SCTs, Do not code a SUBSYS macro for J, 

Must be so defined for NRCD/IMCD BTVERB entries. 


MROTPUT Subsystem Code not X’00, C’Z’ 


Zio 


Messages, Snaps and Abends 


Must be so defined in each Satellite Region SCT, 
Do not put this subsystem in Control Region SCT, 
nor define any SUBSYS macro for this subsystem, 
There is also no corresponding BIVERB entry. 
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FESEND -- SNAP 53 


Accompanies message MG600I: 


FESEND ... MSG LOST,RC=nn, TID=,..,MMN=..., 


4 Queue full 
8 No storage 
12 Disk Q I/0 error 
16 Invalid tid 
20 Invalid VMI or 
Front End verb syntax error 
24 Should Not Occur error (with msg, MG602]) 
28 VTAM OTQUEUE user exit discarded message 
(snap/error msg. suppressed) 
32-36 LU6,2 processing problem 


solution: find F2 log record from MMN number 


PMIRETRV -- SNAP 115 


SYCTTBL -- invalid message queuing counter 


Rll in Registers at Entry to Snap = SYCTTBL 
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Exercise 


MESSAGE COLLECTTION/RETRIFVER 
CSECT ADDRESS 
SPA 
SCT 


For subsystem U, find: 
1. The SCT address: 


2. How many messages queued in core? 


on disk? 


3, The address of the core queue: 


Maximum messages in core queue: 


4, The address of the last message added to the core queue: 


5. The address of the last message retrieved from the core 
queue: 


2.6 Message Collection Exercise 
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EXECUTION MANAGEMENT--Dispatcher 


Introduction 


Installation Requirements 


Interface: Structure and Processing 


Features 


Messages, Snaps and Abends 


67 


EXECUTION MANAGEMENT 
PURPOSE OF DISPATCHER 


Distributes CPU cycles amongst Intercomm "tasks." 
There is one dispatcher in each Intercomm region. 


e CPU Time Distribution--asynchronous processing 
--priority scheduling 


@e Timer Management--time-dependent processing 
e Event (WAIT) Management--ECB posting 


e Loop detection--subsystem CPU control 


Further Reference: Operating Reference Manual 
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MAJOR INTERCOMM COMPONENTS 
SYSTEM INTERFACE 


COMMAND 
PROCESSING 
ROUTINES 


MANAGEMENT 


RESOURCE 
MANAGEMENT 


SERVICE 
ROUTINES 


MESSAGE PROCESSING 
CONTROL 


APPLICATION SUBSYSTEMS 


C 


3.1 INTRODUCTION 
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DISPATCHER 
DEFINITION OF TERMS 


Work Queue Table: Contains pointers to each dispatcher queue, 


Dispatcher Queues: There are four types of dispatcher queues, 


Each is made up of Work Queue Elements. 


Execute Queue: The Work Queue Elements on an Execute Queue 


Event 


Timer 


represent tasks awaiting execution (‘ready-to-go’), 
There are four execute queues representing the 
priorities 0 (high) through 3 (low). These queues are 
FIFO queues. 


Queue: WQEs on an Event Queue represent tasks 

awaiting event completion. There are two types of 
event queues. One (EVENT) is for external (posted by 
MVS) ECBs and internal (posted by Intercomm) ECBs. The 
second (IPOST) is a pseudo-queue (not chained) for 
internal ECBs created with the INTRNL=IPOST option. 


Queue: WQES on the Timer Queue represents tasks 
awditing expiration of a timer interval. 


Free Queue: WQEs on the Free Queue are awaiting assignment 


oral 


to one of the other queues. 


Introduction 


DISPATCHER INSTALLATION CHECKLIST 


Globals--SETGLOBE &NUMWQES released as 120 
Assemblies IJKDSPO1 
Linkedit Automatic 
Modules I JKDSPO1 
I JKTLOOP 
I JKDELAY 
IJKPRINT 
IJKTRACE 
IJKCESD 
I JKWHOIT 
TALLY 
RPTOOO043 
TRAP 
STAERTRY 
SYSCNTL 
Data Sets SYSPRINT 
(for IJKPRINT) 
LPSPALIB 


3,2 Installation Requirements 


CONTROL BLOCK STRUCTURE 


WD1 of Ss 
OS S/A 
SPA 
(SPALIST) 
SPAEXT XKREFA 
LOGIC DISPATCHER 
EP: IJKDSPO1 | “an 
Work Q Table FQ 
EP: IJKREFA EQ J 
TQ 
EO 
El 
E2 
gs 
1Q 
Work Q 
Elements 
EP: IJKREFB 


SPAEXT: SEXKREFB = V(IJKREFB) 
SEXKREFC = VCIJKREFC) End of all WQEs 


3.3. Interface: Structure and Processing 72 


THE WORK QUEUE TABLE--12 BYTES PER ENTRY 


8 g A 
Current MIN 
FQ | ACfirst FQE) A(last FQE) # FQES available 
Current 
: 
Current 
: 
Current 
Current 
Current 
| Current 
Current 


NOTE: The Work Queue is empty if the A(first WQE) and the 
AClast WQE) both point to its Work Queue Table entry. 


NOTE: The Free Queue halfword--MIN available--is a negative 
value. If zero--901 abend. N.A. in first two words of 


IPOST Q=not applicable, 
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WORK QUEUE ELEMENT (WQE) -- 4 FULLWORDS 


J 
Chain Field|P Qj; ECBor |TN |"“Branch-to" | PARAMETER 
RV H U Often R13 
Next WQE T L | Real Time | R M address (returned 
YY EB Via R1) 
in same AE 
list DR 
Priority -- 2 bits O0=highest (0)--1ll=lowest (3) 
Qverlay -- remaining 6 bits (O=resident or dynamic loaded) 
STATUS: cumulative--62=dispatched, was on timer, execute Qs, 
80 - Cancelled (on Free Q) 4 
40 - Dispatched (on Free Q) (last=most recently dispatched) 
20 - On an execute queue 
10 - unused 
08 - Internal ECB will be posted via INTRNL=IPOST 
O4 - Internal ECB (on event queue: indicated via INTRNL=YES) 
O02 - On timer queue 
Ql - On Event queue (External ECBs followed by Internal ECBs) 
NOTE: WQE is at end of the chain if chain field points back to WQT 
Q5=Internal ECB on Event Q, O9=IPOST WQE 
DSECT: WQEDSECT Total number WQEs = &NUMWQES 2S) 
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ENTRY ADDRESS 

IJKREFA 

I JKREFB 

I JKREFC 

ce Describe the last thread given control: 


3.3 


DISPATCHER EXERCISE 


WQE Location: 

status Byte: 
Thread Number; 
Priority/Overlay: | 

Entry Point: 

Parameter: 

ECB/Time: 

What was its history? 


For the first task on the Event Queue: 
WQE location: 

ECB Address: 

Task Entry Point: 

When will this task gain control? 


Interface: Structure and Processing 


(continued) 
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DISPATCHER EXERCISE (continued) 


What was the minimum number of WQEs available during 
this execution? 
What would be the next task given control? 


What is the current thread number? 
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EXECUTION PRIORITY 


FRONT END SETENVY GLOBAL -- &FEPRTY (BIAM/TCAM only) 
released as 2 


BACK END SYCTTBL macro -- PRTY = 
default is 0 


CHANGE DYNAMICALLY 
BACK END ONLY -- via DISPATCH macro (current thread only) 
-- Vid PRTY or FTUN/SSUP commands 
IPOST QUEUE WQES 
WQE address placed in ECB being waited upon via DISPATCH or 
INTWAIT request 
When posted (via INTPOST), WQE chained immediately to 


appropriate Execution Queue. The Event Queue is not 
affected. 
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DISPATCHER PROCESSING 
SCHEDULING A TASK VIA THE INTERCOMM DISPATCHER 


Dispatch Macro -- Provides to the DISPATCHER; 


1, Entry point to receive control when ready to execute. 

2. A parameter list address to be passed to entry point. 

3, ECB address -- Posted on event completion, or 
Interval--time for delaying further execution. 

4, Are we creating an additional task for later control 
(no EXIT), or do we Just want this task to wait (EXIT). 

oe Gives control to Intercomm Dispatcher. 

Ihe Dispatcher: 

1, Builds a table entry (WQE). 

Zi Puts on proper queue (fills in chain address). 

TIME —_ECBC(WAIT) READY (EXEC) 

5, sees if you want to queue yourself as a new task for 
later control (EXIT parameter or INTWAIT used). 
NO -- Return control to caller. 

YES -- Give control to next ready to go task: 

4, If no tasks on any Execute Q, then reorganizes queues, 
e.g., if ECB is posted, take off Event queue and put on 
Execute queue for associated priority. If STIMER 
expired--requeue expired delays--reissue STIMER. 

oe Just before giving control to next ready task, return 
its WQE to free Q. 

6, If no tasks to execute (after reorganization), WAIT for 
external ECB to be posted or current STIMER to expire. 

3,3. Interface: Structure and Processing 
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Cs eaister usage 


@e Upon entry to dispatched routine 


RO -- address of WQE (now on Free Queue) 

Rl -- parameter passed to dispatched routine 

R13 -- address of save area provided by dispatcher 
R14 -- return address in dispatcher 


R15 -- address of dispatched routine 
@e After DISPATCH macro with no exit 
Rl -- address of WQE created 


NOTE: Created WQE address must be saved for later 
cancellation if thread waiting for only one of 
several events (timed delays) to complete, 


eel Panels wider) 


@ IJKTHRED -- current thread number 
@ IJKFLAGS -- status bytes 
X'20' = system in WAIT status 
e ECBLIST -- pointer to list of ECB addresses when 
in WAIT status: starts in second word 
C (STIMER ECB) 
@ IJKREFA -- Work Queue Table followed by WQEs 
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DISPATCHER ROUTINES 
IJKDSPO1: Main Dispatcher Logic Module--Also WQT/WQEs J 
IJKTLOOP: Subsystem Loop Timeout Processing 
TJKDELAY: Request Temporary Timed Delay for Program Execution 
IJKTRACE: Format Dispatcher Queues for Printing (118/122/126 snaps) 


IJKPRINT: Print a line on SYSPRINT (without losing 
control) -- required if IJKTRACE used/included 


TJKCESD: Format CSECT/ENTRY table at startup 

TJKWHOIT: Find Csect name, subsystem name/codes, etc. J 
DISPATCHER ENTRY 

IJKTHRED: Active thread number in low-order byte of fullword: if 


zero--system thread is active (pointed to by SPATHRED). 
set by the Subsystem Controller/Dispatcher., 


Further Reference: Operating Reference Manual 
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3.3 


IJKDELAY : 


TJKTLOOP : 


Interface: 


DISPATCHER RELATED ROUTINES 


REQUEST TIME DELAY 

100 MILLISECOND (AVERAGE) 

ENTRY ON TIMER QUEUE 

TIME-SLICING 

PARALLEL PATHS (TESTING) 

ACTIVATE: CALL DIRECTLY FROM SUBSYSTEM 
(NO PARAMETERS) 

POINTER: SEXDELAY 


DETECT CLOSED LOOP 


SUBTASKED 

30 SECOND INTERVALS 

SNAP 121 

ABEND 909 

DEACTIVATE: CALL IJKTSTOP 
STOPSTLOOP 

REACTIVATE: CALL IJKTLOOP 
STRT$TLOOP 
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DISPATCHER RELATED ROUTINES 


TJKTRACE: 

FORMATTED DISPLAY OF WQE QUEUES 

FLAGS: C-CANCELLED 
D-DISPATCHED (GIVEN CONTROL) 
E-ON EXECUTION QUEUE 
P-IPOST ECB 
I-INTERNAL ECB 
T-ON TIMER QUEUE 
W-EXTERNAL ECB 


CALLED BY: SPIESNAP (SNAP 126) 
RMPURGE 
SYCT4OO (SNAP 118) 
STAEEXIT (SNAP 122) 
USER--(CALL IJKTRACE) 


TJKPRINT: 
IN-LINE WRITE (NO QVERLAP) 


CALL IJKPRINT 
REGISTER 1 = ADDRESS OF ADDRESS OF PRINT 
LINE: 
VARIABLE-LENGTH RECORD (RDW) 
ASA PRINT CONTROL CHARACTER 
MAXIMUM PRINT-LINE-LENGTH=132 
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DISPATCHER 


APPLICATION PROGRAMMING MACROS 


DISPATCH 
INTWAIT 
INTPOST 
Further Reference: Basic System Macros 
Assembler Language Programmers Guide 
(also execution/programming techniques) 
COMMANDS 
@ TALY$SU 


e  TALY$DS 
e SCIL 


Further Reference: System Control Commands 
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DISPATCHER PROCESSING REQUEST ENTRIES J 


(IJKDSPO1) 
Entry Processing POINTER 
IJKCNC cancel existing WQE, return SPAKCNC 
IJKCNCX cancel existing WQE, exit SPAKCNCX 
I JKDSP place WQE on execute Q, return SEXKDSP 
I JKDSPX Place WQE on execute Q, exit SEXKDSPX 
IJKINT Dlace (INTWAIT) WQE on timer Q, return SPAKINT 
IJKINTX | place CINTWAIT) WQE on timer Q, exit SPAKINTX | 


IJKPOST INTPOST internal/IPOST event WQE, return | SEXPOST 
IJKPOSTX | INTPOST internal/IPOST event WQE, exit SEXPOSTX 


IJKRETX terminate control (exit) SPAKRETX 
IJKWAIT Place CINTWAIT) WQE on event Q, return SEXKWAIT 
IJKWAITX | place CINTWAIT) WQE on event Q, exit SEXKWAIX 


Further Reference: Basic System Macros 
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C 


900 


901 


909 


DISPATCHER ABENDS 


Dispatcher was given control, but no tasks to be 
dispatched on any Execute Queue, no events or timed 
delays awaiting completion. ABEND can occur at start-up 
if a program check occurs prior to end of start-up. 


WQE needed, but Free Queue is empty. Occurs if more 
outstanding requests are made than there are free task 
elements (as may occur in an erroneous system loop). 


NOTE: If a loop not in progress--increase the 
&NUMWQES global setting in SETGLOBE, reassemble 
IJKDSPO1, and relinkedit Intercomm before 
restarting Intercom. 


Monitor Free WQEs remaining via TALY$SU command. 


A task element on the timer list is identified as 
belonging to the closed-loop detection module 
(IJKTLOOP) and the 30-second time interval has 
expired--this indicates that a closed loop, or 
operating system supervision of activity has occurred. 
To recover, both STAEEXIT and STAERTRY must be in 
linkedit. A SNAP 121 is produced, 


Further Reference: Messages and Codes 


Dre. 


Messages, Snaps and Abends 
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4,2 


4,5 


RESOURCE MANAGEMENT--Manager 


Introduction 


Resource Audit and Purge 


storage Management 
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PURPOSE OF RESOURCE MANAGEMENT 2 
Control All Resources Except CPU Time 


Resource Audit and Purge: Subsystem clean-up 
-- Storage (Core pools/Subpools) 
-- OQS/VS Datasets 
-- DDQs 
-- Dynamically Loaded Subroutines 
-- Control Requests -- ENQUEUE/DEQUEUE 
-- WQEs under subsystem thread 


storage Resources: Avoid GETMAIN/FREEMAIN Cinterruptible) 2 
-- Storage Cushion 


-- Core Pools 
-- (Core Use Monitoring/Statistics 


Further Reference: Operating Reference Manual 
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MANAGER Components 


Cc AUDITING 


Sa Ge SED ERE GN? EEE Se rE ca RET ae oS OS EE CRUE ME AERIS SS EC GN GET Ae | EY EY ERP QED eR GT A Nees GOS CR CD GD OS ee 
SS CAL AANA SRO REAR MN ee CPE east GRR HNN SEED TES ESD UTS ED EES <i CI UO A EE SE ES CNS AS TS I? Te ES A ES a A a a a a SS eS CS es Se eS ee ee 


CSECT ENTRY Processing 
RMFNQ RMFON Files RCBs 
RMFOFF 
RMNQON ENQ/DEQ RCBs 
RMNQOFF 
RMDQON DDQ RCBs 
RMDQOFF 
RMDYON Dynamic Subroutines RCBs 
RMDYOFF 
RSMGMNT RCBTABLE RCB Table address 
\ RELOCATE Relocate RCBs 
STORAGE 
CSECT ENTRY Processing 
RSMGMNT STORAGEM STORAGE 
STORFRED STORFREE 
RMSTATS Core Use Statistics Areas 
CUSHION Cushion Area Address 
RMPC RMPASS PASS 
Cc RMCATCH CATCH 


4.1 Introduction 


RESQURCE MANAGER--AUDIT AND PURGE 


Installation Checklist 


Globals SETGLOBE &RM 
SPALIST RCBSINT 
RCBSADD 
Assemblies MANAGER 
IXFHNDO1 
Linkedit Automatic 
Modules MANAGER 
RMPURGE 
TDUMP 
RMNADISA 
FDITCB 
PMINQDEQ 
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AUDIT AND PURGE CONTROL BLOCKS 


SPAEXT wa 


MANAGER RCBTAR 


RCB TABLE 


Header ee rg 
Thread READE nec raed unset one 


Table per 

Entries thread 
(256) 

RCB orward pockword | _Iriaal spt all 

Element : aaa alle. _| resources 

Entries belonging 

(RCBTAB to a thread 

+ X’804') (chained) 


DSECT: RMDSECTS 


FORMULAS: ACRCBTABLE) +4+(1#*8)=THREADPT-address 
ACRCBTABLE) +(THREADPT *4)=thread’s-1st-RCB-address 
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10 


FLAGS: 


NOTE: 


4.2 


RCB ELEMENT--20 BYTES 


RCBCONWD 


RCBLEN/RCBIDSCT/RCBNQCHN/RCBQLBAD 


RCBADD 


RCBLINK 


80 -- Dynamic Loaded Subroutine 
40 -- DDQ 

20 -- Part of Core Pool was freed 
10 -- Storage 

08 -- System NQ 

04 -- File 

02 -- User NQ 


O1 -- Core Pool Block 


X‘11‘ = Intercom Core Pool Storage 
X‘00’ = RCB on Free RCBs Q 
Resource Audit and Purge 
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RESOURCE AUDIT EXERCISE 


ENTRY 


RCBTABLE 
TJKTHRED 


i What is the current thread number? 
2. For the current thread, find: 
First RCB Address 
Last RCB Address 
Subsystem Code 


ADDRESS 


S Describe the most recently acquired resource for the 


current thread: 

What type of resource? 
Address of resource 
Requestor’s address 


4,2 Resource Audit and Purge 
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PROCESSING--SUBSYSTEM TERMINATES NORMALLY 


Before calling a subsystem-- 
Before a message is passed to a subsystem, the 
Subsystem Controller will assign a thread number and 
insert it into MSGHDR - used for 30 and FA logging. 


Upon subsystem return-- 

When the subsystem returns to the Subsystem Controller, 
the Subsystem Controller calls RMPURGE. RMPURGE checks 
for any unreleased RCB (traced using thread number), 
and if any found for this thread, RMPURGE calls TDUMP 
to produce a thread dump. RMPURGE then releases all 
outstanding resources belonging to the thread 
(including outstanding WQEs). Subsystem Controller 
then resets current thread number (in IJKTHRED) to 
zero, 
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PROCESS ING--SUBSYSTEM TERMINATES ABNORMALLY 
SUBSYSTEM PROGRAM CHECK 


J 


SUBSYSTEM SPIEEXIT Save PSW, registers 
in SPIE SAVE AREA 
OCx 


i; 4 
SNAP ID 3 POOLDUMP 
S-] 


POOL 


THREAD DUMP 
DUMP 
1 
SUBSYSTEM RMPURGE if thread IJKTRACE 
CONTROLLER has WQEs 
2 
only if thread TDUMP THREAD 
owns resources DUMP 


NOTE: if Thread 0, after steps 1-4, SPIESNAP exits to Dispatcher 


2 
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PURGE PROCESSING--SUBSYSTEM TIMES QUT 


Controlled by: SYCTTBL--TCTV= 
SNAP : 118 
PROCESSING: RMPURGE via Dispatcher TQE (from SS Controller) 
called by PURGE entry in SS Controller 
Register Assistance: SPIE SAVE AREA 
R2 -- Message Header in SS Controller Save Area 
Rll -- SYCTTBL of subsystem 


R12 -- SPA 
R13 -- SS Controller’s Save Area (SCNLIDS Dsect) 
FIND: Current Thread Number (IJKTHRED or SCNTHRED) 
Active (not on Free Q) WQEs--same thread number 
If none: DISPATCH EXIT without another DISPATCH for 


WAIT/TIME/EXEC Q 
If more than one: What will occur first? 
Timer--time out entry point 
time interval greater than TCTV 
Event--who will post ECB: 
external--File/DB I/0 hung 
internal--enqueue lock out 
will poster get control 
Possible Causes: TCTV value too small vs. subsystem PRTY and 
T/0 needs. Device contention. 
Front End may be monopolizing CPU, 
To see associated WQEs printout, IJKTRACE must be in Linkedit 
(called by SYCTRL if Snap 118 issued, and/or by RMPURGE). 
Thread Dump: thread is SMLOG owner - also see status line. 
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RESOURCE CONTROL MACROS 


INTENQ/INTDEQ 
DISABLE/ENABLE 
COMMANDS 
@ TALY$SU RCB Table Relocation, Cushion Status 
@ SCTLSTDUMP 1/all threads to terminal or SMLOG 


@ FILE$ddnamesDEALL  SMLOG or SYSPRINT 


Further Reference: Basic System Macros 
Operating Reference Manual 
system Control Commands 


4,2 Resource Audit and Purge 
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C 


ENQUEUE/DEQUEUE 


Purpose: Control resource access 
Control resource usage concurrency 
Limit contention for frequently used resources 
Control resource usage duration 


Installation: 
SPALIST NQTIM 
SYCTTBL RESOURC 
RESOURCE ID 
MAXUSE 
Linkedit PMINQDEQ 
Programming macros: 
INTENQ 
INTDEQ 


Identifier: 1-44 character logical name (Default=16) 


DSECT: NQDSECTS -- work area 
ELMDSECT 


Statistics: SAM -- ENQS 


Time Out: Enqueue time expired--Snap 114 


4,2 Resource Audit and Purge 
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DISABLE/ENABLE MACROS 


Processing: RMNADISA 

Purpose: Temporarily suspend/prevent subsystem purge. 
Used when I/O must complete: e.g. Subsystem 
CALLS MSGCOL and disk queueing required, 
Also for dynamic subroutine load. 


ENABLE [SPAEXT=(r)] 
Or 
DISABLE 


If SPAEXT=(r): address preloaded, USING not required, 
otherwise VCON will be generated. 


RMPURGE: issues EVENT--RMEVENT entry in RMNADISA; test 
outstanding DISABLE, wait for TCTV time, if no 
ENABLE, do not purge thread (core). 


User Exit: IOEXIT - called by (CALLIF) RMNADISA (after wait) 
--called for Subsystem Timeout (Snap 118) 
when an outstanding DISABLE for a selected file 
--parameter - address of SYCTTBL in R1 
--no return code checking 
--may be used to issue a message (PMIWTOQ) 
when subsystem hung on file/DB 1/0 


TALY$DA -- thread status - all assigned thread numbers 
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STORAGE CUSHION 


'S Purpose: Prevent (GETMAIN) ABEND when no Subpool core 
avdilable, 


Installation Checklist 


Global SETGLOBE &RM 
SPALIST CUSHION 

CUSHTM 
Assemblies MANAGER 

IXFHNDO1 


bd MANAGER Entry: CUSHION -- if 0 = SPALIST -- CUSHION = 0 
if negative = released 
if positive = cushion address 


Monitoring Cushion Use: SPAHOLD = ‘FO’ -- Cushion Acquired 
‘Fl’ -- Cushion Released 
GETCUSH -- reacquire Cushion 
SSPOLL -- suppress terminal input 
until cushion reacquired 
LOWCORE -- flush S/F strings, loaded 
Subroutines 


C ABEND: 1111 -- Cushion Released and no core for RCBTABLE 
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WITHOUT POOLS 


4,3 


INTERCOMM 


LOAD 


MODULE 


SUBPOOL 
AREA 


CORE POOLS 
Intercomn Region 


WITH POOLS 


INTERCOMM 


LOAD 


MODULE 


HARD CODED 
CORE POOLS 


SUBPOOL 
AREA 


Storage Management 
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Globals 


SPALIST 


Assemblies 


Generation 
Macros 


Dataset 


Linkedit 


4,3 Storage Management 


RESOURCE MANAGER -- STORAGE MANAGEMENT 
Installation Checklist 


&RM 
&RMPOOLS 
&RMSTATS 
&RMACCT 
&RMINTEG 


COREACC 
RMSTIM 


MANAGER 


TCOMPOOL 
COREACCT 


SMLOG 


Automatic 
Modules 


Tables 


Core Pool Release Auditing 
Core Pools Support 

Global Core Use Statistics 
Detail Core Use Statistics 
Core Pool integrity checking 


TRACETM 
TIMS 


SYSOUT=A 


MANAGER 

RMTRACE 

POOLSTRT (optional) 
POOLDUMP (optional) 
SSPOLL (optional) 
TRAP (optional) 
NEWPOOLS/TCPOOLnn 
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STORAGE CUSHION 


Purpose: Prevent (GETMAIN) ABEND when no Subpool core 
available. 


Installation Checklist 


Global SETGLOBE &RM 
SPALIST CUSHION 

CUSHTM 
Assemblies MANAGER 

IXFHNDOL 


MANAGER Entry: CUSHION -- if 0 = SPALIST -- CUSHION = 0 
if negative = released 
if positive = cushion address 


Monitoring Cushion Use: SPAHOLD = ‘FO’ -- Cushion Acquired 
‘Fl’ -- Cushion Released 
GETCUSH -- reacquire Cushion 
SSPOLL -- suppress terminal input 
until cushion reacquired 
LOWCORE -- flush S/F strings, loaded 
subroutines 


ABEND: 1111 -- Cushion Released and no core for RCBTABLE 
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SAMPLE CORE POOLS -- NEWPOOLS 


2 
ICOMINX CSECT 
ICOMPOOL LEN=32, NUMBER=2 
ICOMPOOL LEN=64, NUMBER=2, LOWLIM=50 
ICOMPOOL LEN=96, NUMBER=6 
END 
Maximum ICOMPOOL definitions: 255 
Maximum LEN = 256K - 8 bytes 
NAME SPAEXT DISPLACEMENT J 
CSECTS: POOLACCT SEXPOOLA +370 
ICOMINX SEXICMNX +334 
ICOMCHN SEXICMCH +348 
ICOMPOOL SEXICMPL +38C 
POOLEND SEXPOOLN +358 
POOLCONS SEXPOOLC +3A8 
ENTRY: HILIM SEXHILIM +378 
POOLREGS SEXPOOLR +3A4 
For MVS ordering: in above CSECT order 
DSECT: RMDSECTS (BLOKCON, ACCTAB, STATSECT, POOLACC) J 
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CSECTS IN ICOMPOOL GENERATION 


TCOMINX 
e String of 1-byte entries per 8 bytes in ICOMPOQLs range 
(largest size specified rounded up to doubleword 
boundary). 


e The nth byte represents requests for 8n-7 to &n bytes of 
Storage: 
N=(STORAGE-LEN-REQUESTED+7) divided by 8 


e If the byte is zero, a GETMAIN must be done. 


e If the byte is non-zero, it has an index (I) to ICOMCHN 
(STORAGE-LEN-REQUESTED+7) /8=N+A ( ICOMINX) >I 


ICOMCHN 
@e Pool block addresses for each ICOMPOOL--first word is 
the address of ICOMPOOL followed by: 
e for each size pool block defined, two words: 
-- the address of the first block of that size. 
-- the address of the first available block of that 


size or zero (if all in use), 


@ Formula: 8*(I-1)+ACICOMCHN)+8->first available block 
pointer where I=Index from ICOMINX 
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CSECTS IN ICOMPOOL GENERATION (continued) 


ICOMPOQOL 
e Actual pool blocks defined via ICOMPOOL macros. 


@e Unused pool blocks (or unused low-order portions) are 
Initialized to X‘BB’ - easy way to find pools area ina 


dump, 


@e Each pool block starts with 8-byte (2 word) header: 


pool block not in use pool block in use 
@e Free list chain pointer @e Number of doublewords 
to next free pool block, used (hal fword) 


or zero (fullword) 

e Index/4 to RCB for this 
block: same format as 
index in RCB Table 
(hal fword) 

4( Index) +A(RCBTABLE) =RCB 


e Offset from start of e Offset from start of 
ICOMCHN to head of free ICOMCHN to head of free 
list for this size pool list for this size pool 
(hal fword) (hal fword) 


e Length of this pool block e Length of this pool block 
in doublewords (hal fword) in doublewords (hal fword) 
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CSECTS IN ICOMPOOL GENERATION (continued) 


POOL ACCT 
@ Used to accumulate Pool Use Detail Statistics 
@e For each ICOMPOOL, four words: 
-- number of requests that fit pool 
-- number of pool failures 
-- amount allocated 
-- number of free blocks 
POOLCONS 
@e total size of ICOMPOOLS exclusive of headers (fullword) 


ENTRY HILIM 


Size of largest ICOMPOOL 


ENTRY POOLREGS 


POOL END 


constants for pool use statistics accounting 
@e fullword of ‘8’ 

e@ address of last pool block header chain 
e address of first pool block header chain 


@e Defines end of all pools (fullword X‘FF’) 
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POOL HEADER CHAINING AT STARTUP 


ICOMCHN 2 
ACHEADER#1) | ACHEADER#1) | ACHEADER#1) | ACHEADER#1) 4 
@ ize x 6 a xX @ : @ a 


TCOMPOOLS 


ACHEADEREL POOL BLOCK 1 of size X 
ACHEADERES)| | POOL BLOCK 2 of size X 
-aqueanere| POOL BLOCK 1 of size Y 

-ACHEADEReS)| POOL BLOCK 2 of size Y 


Pool Blocks grouped in ascending order by size 
(from ICOMPOOL macros) 


Each Pool Block has 8-byte header. 


At linkedit header chained to next header in range or O if last 
in range. J 
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POOL HEADER CHAINING 
AFTER FIRST STORAGE REQUEST FOR LENGTH X 


TCOMCHN 
ACHEADER#1) | ACHEADER#2) | ACHEADER#1) | ACHEADER#1) |S 
e oie 0 oa. @ @ 6 e 

TCOMPOOLS 


POOL BLOCK 1 of size X 


A (HEADER#2 Bl POOL BLOCK 2 of size X 


-ACHEADERHD) POOL BLOCK 1 of size Y 


POOL BLOCK 2 of size Y 
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POOL HEADER CHAINING 2 
AFTER SECOND STORAGE REQUEST FOR LENGTH X 


ICOMCHN 
ACHEADER#1) | ACHEADER#3) | ACHEADER#1) | ACHEADER#1) | * 
9 ize x a a xX 6 . 2 S 

ICOMPOOLS 


eRe) 


| 
_ACHEADER#2) POOL BLOCK 1 of size Y 
-ACueapeRes)| POOL BLOCK 2 of size Y 
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POOL HEADER CHAINING 
AFTER THIRD STORAGE REQUEST FOR LENGTH X 
WHEN NO INTERVINING STORFREE REQUESTS WITHIN SIZE X 


TCOMCHN 
ACHEADER#1) A(0) A(HEADER#1) ae ee 
e va. @ = 0 . 

TCOMPOOLS 


-ACHEADERH?)| POOL BLOCK 1 of size Y 
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POOL HEADER CHAINING | 
AFTER STORFREE FOR SECOND OF THREE AREAS OF SIZE X 2 


ICOMCHN 
ACHEADER#1) | ACHEADER#2) | ACHEADER#1) | ACHEADER#1) 
@ = A t ) — A e e t » 
ICOMPOOLS 
POOL BLOCK 1 of size X 


PACHEADERH™y) 


POOL BLOCK 1 of size Y 


-ACHEADeReS)| POOL BLOCK 2 of size Y 


NOTE: ACHEADER#2) stored in ICOMCHN after ‘NEXT’ pointer moved 
to header of pool block being freed. 


In this case, ‘NEXT’ pointer was A(O) because all pool 
blocks of size X were in use. A(O) now in HEADER#2. J 
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POOL HEADER CHAINING 
AFTER STORFREE FOR THIRD OF THREE AREAS OF SIZE X 
(SECOND AREA WAS FREED EARLIER) 


TCOMCHN 
ACHEADER#1) | ACHEADER#3) | ACHEADER#1) Ave) 
8 a, 0 mA @ S e @ 

TCOMPOOLS 


wneRey) 


coy 
ACHEADER#?) POOL BLOCK 3 of size X 


POOL BLOCK 1 of size Y 


POOL BLOCK 2 of size Y 


POOL BLOCK 3 of size Y 


NOTE: After STORFREE, ICOMCHN points to HEADER#3 of size X, and 
HEADER#3 of size X points to HEADER#2 of size X which is 
the end of the Free Chain (for size X), 
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Address ICOMINX 
Address ICOMCHN 


Using ICOMINX/ICOMCHN indexing, 
Allocate 2 blocks of core from ICOMPOOLS 


Sizes: 278 bytes, 735 bytes. 
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APPLICATION INTERFACE 


Macros: STORAGE/STORFREE 
PASS/CATCH 
LINKAGE/RTNLINK 
SUBLINK 


Statistics: SAM -- HIGHSTOR/STORAGES 


Further Reference: Basic System Macros 
Assembler Language Programmers Guide 
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PROGRAM CHECKS - MANAGER 


J 
Csect RSMGMNT 

Example: SOC4 on L RI1,BLOKPTR instruction 
Cause: Bad Pool Block Header chain address 
Snap 126: SPIE SAVE AREA -- find R4 - has 

Blanks (X‘40’) or X‘BB’ or Alpha data 
Cause: Owner of previous pool block moves data over next 

header (may also destroy next pool) 
Occurs if: 1) data added to input message area 4 

2) data moved beyond allocated save/work 
(DWS) ared 


3) DWS size (SYCTTBL macro GET) not increased 
after program change 


SPALIST/SYCTTBL macros: DWSCHK=YES will trap 2 and 3 for 
COBOL, controlled by STRT/STOP (SPALIST), FTUN/SSUP (SYCTTBL) 


If bad header for block in use - ISK 


May cause recursive ISK when RMPURGE issues STORFREE 
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POOL HEADER CHAINING AT STARTUP 


TCOMCHN 
ACHEADER#1) | ACHEADER#1) | ACHEADER#1) | ACHEADER#1) | & 
® v_:. 0 ~a. 0 . ® @ 

TCOMPOOLS 


POOL BLOCK 1 of size X 


POOL BLOCK 2 of size X 


POOL BLOCK 3 of size X 


POOL BLOCK 1 of size Y 


POOL BLOCK 2 of size Y 


ay | POOL BLOCK 3 of size Y 
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POOL HEADER CHAINING 
AFTER FIRST STORAGE REQUEST FOR LENGTH X 
(BY USER ’A’) 
TCOMCHN 


ACHEADER#1) | ACHEADER#2) | ACHEADER#1) soe] 
s) va. e wa 6 s 8 ® 


TCOMPOOLS 


-ACHEADERHS)| POOL BLOCK 2 of size X 


acHaperga| POOL BLOCK 1 of size Y 


POOL BLOCK 2 of size Y 


POOL BLOCK 3 of size Y 
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POOL HEADER CHAINING 
AFTER USER ‘A’ HAS OVERLAID HEADER#2 
OF POOL#2 OF SIZE X 


ICOMCHN 
ACHEADER#1) | ACHEADER#2) | ACHEADER#1) | ACHEADER#1) 
Q ize X a ize X A . 8 a 
ICOMPOOLS 


‘ten [pcre] POOL BLOCK 1 of size X 
D 


PAHEADERH?)| 


POOL BLOCK 1 of size Y 


-AHEAnEReS)| POOL BLOCK 2 of size Y 


PC POOL BLOCK 3 of size Y 
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POOL HEADER CHAINING 
AFTER SECOND STORAGE REQUEST FOR LENGTH X J 
(BY USER ‘B") 


TICOMCHN 
ACHEADER#1) EFGH ACHEADER#1) | ACHEADER#1) | 
8 ize x 9 : 9 a 
ICOMPOOLS 


‘ew tee] POOL BLOCK 1 of size X 


ARCD 
‘ten tecp-] POOL BLOCK 2 of size X 
ACO) POOL BLOCK 3 of size X 


Ls 
-ACHEADER#?)| POOL BLOCK 1 of size Y 
-ACHEADER#3) POOL BLOCK 2 of size Y 


NOTE: Destroyed pointer from HEADER#2 of size X moved to ICOMCHN 


SOC4 occurs if third storage request for length X (by user ‘C’) 
before STORFREE for areas owned by user ‘A’ and user ‘B’ J 
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POOL HEADER CHAINING 
AFTER STORFREE ISSUED BY USER ‘A’ 
(FIRST REQUESTER OF LENGTH X) 
TCOMCHN 
ACHEADER#1) | ACHEADER#1) | ACHEADER#1) Aces] 
@ wees e ~a. e e 6 ° 


TCOMPOOLS 


POOL BLOCK 1 of size X 


eRe) 


| ACHEADER#?) POOL BLOCK 1 of size Y 


POOL BLOCK 2 of size Y 


NOTE: Destroyed pointer from ICOMCHN moved to HEADER#1, ICOMCHN 
points to HEADER#1 as first available area of size X. 


Chain is a ‘Push-down Stack’ -- access to bad pointer can occur 
minutes/hours later, usually at peak processing time. 
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ICOMPOOL HEADER - DEBUGGING 


In SOC4 - R2 in SPIE SAVE AREA points into ICOMCHN 


SEXICMCH contains ICOMCHN address 
First word in ICOMCHN is ICOMPOOL address 
(end of ICOMCHN) 


If R2 is good, it points to a free pool chain pointer 
Previous word in ICOMCHN is A(Header#1) 


Look at Header#1: 


1) 


2) 


3) 


4) 


4,3 


If good header, use 4th (last) halfword value times 8 + 
A(Header+8) =A (next-header) 

Compare A(next-header) to word following free-chdin-pointer 
in ICOMCHN which is A(Header#1) for next pool size (0 if at 
end). 

If A(next-header)=next A(Header#1), go to 3, 

If A(next-header) lower than next A(Header#1), go to l. 

If A(next-header) higher than next A(Header#1), then block 
length in current header is bad; this header originally had 
bad chain pointer, go to 4. 

If all headers look good, then bad address in R4 = free 
pool chain address in ICOMCHN, 

Try to match data in R4 to data at end of previous (each) 
block. If matching block in use, use POOQLDUMP or Thread 
Dump to find owner. Owner may not be guilty if area 
reused, 
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DESTROYED ICOMPOOL HEADER - RESOLUTION 
TRAP 
Checks all pool headers and chaining on every call to 
Resource Management, Dispatcher, COBREENT by trapping 
associated entry point. Has Trace Table of last 256 calls. 


ABEND 1369 


Controlled by: STRT/STOP commands 
-- set OFF at startup 


Further Reference: Messages and Codes 


RMINTEG 


Global: &RMINTEG requires &RM SETB 1 


Assemble: MANAGER 


Checks pool headers, chaining, pool data. 
More processing overhead than TRAP. 


Controlled by: STRT/STOP commands 
-- set OFF at startup 


Further Reference: Operating Reference Manual 


4,3 Storage Management 125 


SPECIFYING CORE-USE DETAIL STATISTICS 


In Pools module: COREACCT macro (before ICOMINX CSECT) 


COREACCT (Crangel,...,rangen) J 
,FROM=start-value 
, 10=end-value 
, BY=increment 


Recommended: 
COREACCT  ,FROM=64, TO=4096, BY=64 


When Pools are tuned--save overhead by: 

set &RMACCT to 0 (reassemble MANAGER) 
or 

Omit RMTRACE from linkedit 
or 

specify larger increments for COREACCT 
or 

SPALIST macro: specify COREACC=NO 
or 

STOP$RMSTAT stops statistics printing 


Further Reference: Operating Reference Manual 
Basic System Macros 
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DATA MANAGEMENT--File Handler 


Introduction 


Installation 


Interface: Structure and Processing 


Features 


Messages, Snaps and Abends 
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oral 


DATA MANAGEMENT 
FILE HANDLER 


I/O UNDER MONITOR CONTROL 
-- "read only," "duplexing," etc. at monitor level 


OVERLAP WITH APPLICATION PROCESSING 
-- Qllows multithreading 


I/O ERROR ANALYSIS 
-- errors trapped by monitor: program not terminated 


CENTRALIZED OPEN AND CLOSE 

-- Program independent 
OPEN--startup or first access 
CLOSE--close down or program request 


CENTRALIZED OS/VS CONTROL BLOCKS saves storage 


EXCLUSIVE CONTROL 
-- for data integrity; prevents concurrent updates 


SIMPLIFIED APPLICATION PROGRAMS 
-- Restart/Recovery is external to application 


STATISTICS 


EXTERNAL CONTROL via FILE command 
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FILE HANDLER AND MRS--DATA MANAGEMENT ACROSS REGIONS 


FILES -- Region Dedicated 
-- Shared across regions 
Exclusive Control -- within a Region only 


Operating System Nucleus 


Control satellitel | Satellite2 
INTERLOG INTERLOG INTERLOG 
PMIQUE PMIQUE PMIQUE 
SNAPDD SNAPDD SNAPDD 
DYNLLIB DYNLLIB DYNLLIB 
DYNLWORK | DYNLWORK DYNLWORK 
VTAMQ User Files | User Files 
RCTOO0 

User Files 


q———- INTSTORn (mmu maps) —————_> 
PMIQCFDD 
PMISCFDD 


Link Pack Area 
File Handler (in LPM) 
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SUPPORTED ACCESS METHODS 


@ BDAM--Fixed and Variable 
--by RBN or KEY 
BISAM--Fixed and Variable 
QISAM* 
ISAM/VSAM Compability 
VSAM--Entry-sequenced, Key-Sequenced, RRDS 
BSAM 
QSAM 
TAM--ISAM replacement 


* QISAM via BISAM option 


Further References: Operating Reference Manual 
Programmers Guides 
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FILE HANDLER INSTALLATION CHECKLIST 


Globals 


SPALIST 


Assemblies 


Generation Macros: 


ICOMLINK 


Linkedit 


& ISAM 
&VSAM 
&VSISAM 
& IAM 


TASKNUM 
BLDVRP 


IXFHNDOO 


IXFHNDOL 


IXFFAR 


IXFDSCTA 


DSCT= 


Modules 


(requires &VSSYSTM) 
(requires &VSAM) 
(requires &ISAM) 


(subtasked I/0) 
(VSAM LSR Pools) 


also if using link pack: 
LPINTFC 


LPSPA 

IXFDSCTn 

IXFHNDOO IXFB37 
IXFHNDOL IXFRPTOL 
IXFFAR IXFVSCRS 
IXFQISAM 


ICOMTASK (Subtasked I/O) 


Dsect: IXFDSECT--File Handler Work Area 
VRPDSECT--VSAM LSR Pools Build Area 
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Dao 


Name 


IXFDSCTn 


TXFHNDOO 


IXFFAR 


IXFHNDOL 


IXFQISAM 


IXFB3/ 


IXFRPTOL 


IXFVSCRS 


Interface: 


FILE HANDLER COMPONENTS 


Data Set Control Table 


Initialization Processing 
Termination Processing 


FAR Processing Module 
Resident Processing Module 
Common Subroutines 

Issues Error Messages, ISK 
QISAM/BISAM Module 

SAM Disk File Flip/Flop 


File Handler Statistics 


VSAM X-Region File Control 


Structure and Processing 


=o ae ee es es ee ee ee ee ee ee A A SAS A A SA SC YS SS CS YY ees SSS AES UY CEE ED SN ER AO A | 
ap GS es Se es ee ee es ee SS SS CT NS A ce ee eS eS ee ee se ee ee SS SE AS LS TS KS OS ME CE SE 


2 OS OT TS CN A OS aT A EE OE SS SS OS TTS EE ED RY A GS ES SRS ED GD OE TE 0 SN SRE SE ES SD ES ES OS 
OS A TS TES a SS RLY NS CE SEI SE nD ES OC SS SS CS SS CE SE EE CO CO OE co GC Ce Ke ee A A EE CE SS CS I AE a 


IXFDSCTA 


IXFMONOO 
IXFMONOS 


IXFFAR 


IXFMONOL 


IXFSUBS 


IXFABWTO 


IXFQISAM 


IXFB3/ 


IXFRPTOL 


IXFVSCRS 


PROCESSING OVERVIEW 


Task Input- Unit Control Job File 
Output Table Blocks Control Blocks 


TIOT SYS1, 
SYSJOBQE 
IXFMONOQO IXFFAR 
Startup 


//1COMIN 
File Attribute 
Records 


IXFDSCTA FABS 
data set File Attribute 
Control Table Blocks - DSCT 
Extensions 


User IXFMONOL time-out 
Data Sets Processing] ~~) 


| 
MANAGER Application RMPURGE 
Process RCB Program 


Note: JFCBs are in SWA under MVS 
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DATA SET CONTROL TABLE 
The Data Set Control Table contains one entry for each 
file. It is built dynamically at startup, but space must be 
reserved, 


IXFDSCTA Macro 


(symbol) IXFDSCTA = CSECT= 


MAXFILE= 
OPTIONS= 
Packaged IXFDSCTA Macros (MODREL) 

Member Name Maxfiles 
IXFHNDOL 20 
IXFDSCT1 50 
IXFDSCT2 100 
IXFDSCT3 200 

ICOMLINK DSCT= IXEDSCTI 
IXFDSCT2 
IXFDSCT3 


DSECT: IXFDSCTA 
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‘S LOCATING THE DSCT 


WD1 of 
OS S/A 


SPA PAEXTAD 


¥ 4 
hve 
sparxt | sdgeyser]  i(‘i‘id A 


IXFDSCTA 4 0 2 4 8 
w HEADER # Fntries |Max Options 1A able 


Internal | | 
DSCTS 


& 
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DSCT FORMAT 


Internal - 0 DSCTDDNM 
ALEC NUL - K 
Internal 8 NSCTIDCBQ/ACR NSCTDCBD 
and 10 


External 18 


20 
Internal 30 
Only 38 


1 or 3 extra words depending sp 
on setting of &FHSTATS Global gw 


DSCTADDR [|_lACinternal-dsct)| DSCTDCBA [|_A(DCB/ACR) | 


X‘00‘ not active DSCTDCBD high order 
X'3F’ selected bit on = 
X‘FF‘ I/O in progress open DCB/ACB 


X'1F’ file reversal 
DSCTLIST = AClatest extdsct) 
DSCTLINK = ACprevious extdsct) (back chain) 
0 if first in chain Internal only 
Dsect: IXFDSCTA 
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FILE HANDLER EXERCISE 


CSECT ADDRESS 
IXFDSCTA 

From the DSCT, find: 

ie Which files have been accessed? 


Zz; Of those accessed, how many are currently 
selected? 


3. What is the address of the most recent external DSCT for 
INTERLOG? SSS 


4, How many outstanding SELECTs for INTERLOG? 


zy From the first EXTDSCT for INTERLOG, find: 
STGTUS: _ 
what was the last function issued: 
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D2 


FILE OPEN/CLOSE 


e Program Independent 
@ OPEN -- Start-up (FAR option) 
-- First Access 
e CLOSE -- Close-down 
-- Program Request (RELEASE) 
@ Jerminal Command -- FILE 


SELECT 


e Verify File Availability 
@e Initialize External DSCT (chain to Internal) 
@e Create RCB (call RMFON in MANAGER) 


RELEASE 


Free Dynamic Buffers 

Update Internal DSCT Status Cunchain External) 
Delete RCB (call RMFOFF in MANAGER) 

Issue VSAM ENDREQ 
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SELECT 
RELEASE 
GET 


— 
| 
I 


5,3 INTERFACE: 


SERVICE ROUTINES FOR 1/0 


ey ee ee ee oe oe — ony Ge ee ee 
ep ee ee eee Oe = ee — es SD a 


ODO FD ODO WO DO WO WO FSW 7 


REQUIRED 
OPTIONAL 
REQUIRED 
OPTIONAL 
REQUIRED 
REQUIRED 


INVALID PARAMETER 


CONCURRENT QISAM GETs RESULT IN MULTIPLE DCBs 
OPENED (pUuE To SETL), EACH CLOSED VIA PROGRAM 


ODO wD HO Oo OO Oo OO OO 7 


es ee ee ee ee ee ee ee ee ee ee 


2 ep ee ee ee ee ee 


KEY BLOCK- 
[ or U a 
UJ sas 
[ D or 
| D or 
DI or U D 
DI or YU D 


FoR ISAM or KEY-SEQUENCED VSAM 
FOR BSAM or QSAM witH RECFM=U 
FOR KEYED BDAM or KEY-SEQUENCED VSAM 


FOR KEYED BDAM 


FOR ENTRY-SEQUENCED VSAM (RBA) 


TM 


CALL to RELEASE (except orrGINAL DCB oPENED AT 
START-UP), 
AREA useD For --DDNAME For SELECT 


--RECORD AREA FOR [/0 REQUESTS 


STRUCTURE AND PROCESSING 
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LOCATE SERVICE ROUTINE 


CALL LOCATE, (WORKAREA, * 
FHCW, 
DSCTFLD, 
DCBFLD, 
DECBFLD, 
IOBFLD) , 
VL, MF = (E,LISTAREA) 


* ADDRESS OF DDNAME FOR 
"PUBLIC" DCB , OR 
ADDRESS OF EXTDSCT FOR 
"PRIVATE" DCB 


VSAM FILE: ACB instead of DCB address 
RPL instead of DECB address 
omit IOBFLD 
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ae, 


SHAREABLE SEQUENTIAL DATA SETS 


SHAREABLE IF: 
-- Disposition is OLD or SHR (READ only) 
--can be repositioned if not tape 
-- DCB address is in internal DSCT 
-- DCB not closed vida RELEASE 


NOT SHAREABLE IF: 
-- Qn magnetic tape 
-- Disposition is NEW or MOD (write only) 
--(unless interleaving of output records 
immaterial) 


CHARACTERISTICS: 
-- Select Status Code = ] 
-- Operations Performed in Order Requested 
-- No Repositioning - if tape 
-- No Intermixing of Queued and Basic Methods 
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BISAM DYNAMIC BUFFERING 


@ BUFNO IGNORED (all basic access methods) 
BUFFER OBTAINED AT FIRST ACCESS 

@ FREED AT RELEASE (if more than 1 outstanding 
for file) 

@ UPPER LIMIT ON CONCURRENCY IS NCP (DCB 
parameter) 


EXCLUSIVE CONTROL 


VSAM - CONTROL INTERVAL LEVEL 
QISAM - DATA SET LEVEL 
BISAM - PHYSICAL RECORD 
BDAM - RECORD BLOCK 
TIME-OUT: 2 MINUTES AT RECORD LEVEL 
10 MINUTES AT DATA SET LEVEL 
(VALUE SET IN IXFHNDOL) 
@ REQUESTED BY -- CALLER 
-- C’X‘in second byte of FHCW 
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DATA SET LABEL INFORMATION 


DSORG* 

RECFM 

BLKSIZE 

LRECL 

KEYLEN 

RKP 

OPTCD 

LIMCT* (if applicable) 
* MUST BE ON DD CARD 


Except 

Data Sets (Data Base) JCL following a 
//PMISTOP DD DUMMY 

will not be processed via internal DSCT 


VSAM 
--AMP=(AMORG) required 
--if fixed-length: AMP=(AMORG, ’RECFM=F’ ) 


SEQUENTIAL, MULTI-VOLUME FILES 


--code SUL on LABEL parameter to prevent 118 
timeouts between volume mounts 
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FILE ATTRIBUTE RECORDS 
(FABS) 


READ ONLY (input only) 
OPEN AT START-UP 

UPDATE ONLY (ISAM) 

IN-CORE INDEX (ISAM) 

ALIAS 

INTERNAL EXCLUSIVE CONTROL (BDAM) 
LOCK IF I/0 ERROR 

n-PLEXED SEQUENTIAL OUTPUT 
B37 (SAM) 

WRITEOVER (SAM, VSAM ESDS) 
LSR (VSAM) 

VSAMCRS (VSAM) 

DSN (VSAM) 


DSECT: FRDSECTS Data Set: ICOMIN 
Processing: IXFFAR - at start-up 


FAB Table Base Address: See IXFDSCTA Header 


Additional FAR specifications--File Recovery Facility 


Further Reference: Operating Reference Manual 
File Recovery 
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SPECIAL CONSIDERATIONS 


ACCESS METHODS -- refer to Qperating Reference Manual and 
Vendor Documentation 


@ IAM -- Innovation Data Processing 


NOTE: ISAM and IAM may be used in same region. 
I/O modules for IAM are provided by the vendor. 


Subtasked GETs -- refer to Operating Reference Manual 
e Specify SPALIST TASKNUM= 
@ Include ICOMTASK 


User-supplied DCBs: refer to Qperating Reference Manual 


Using the File Handler in a Batch Environment: 
refer to the Operating Reference Manual 


ICOMFEOF--off-line EOF recovery for SAM file after: 
head crash 
CPU crash 
--data set on disk or tape 
--special use for INTERLOG, TOTAL Logs 
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DYNAMIC FILE ALLOCATION 


Access Methods supported: SAM, VSAM (Access only) 


File Handler Service Routines (instead of SELECT): 


@e ALLOCATE 
@ ACCESS 
Installation: 
Assemble IXFDYNAM 
ICOMLINK DFA 
Linkedit Module IXFDYNAM 
Data Sets TXFnnnnn 


Control Block: DFACB 
DSECT: DDSASECT 


Further reference: Dynamic File Allocation 
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COMMANDS 


File Control--GPSS Subsystem--IXFCTRL, IXFDYALC 


FILE LOCK/UNLOCK 
FEOV 
CLOSE/CLOSESLOCK 
ALTERSREADONLY/WRITES/WRITEOVER 
STAT 
DYNAMIC ALLOC/DEALLOC 


Statistics Display--IXFRPIOL Subsystem--Entry IXFRPTIQ 


5.4 


FHST e FHST$ddname @ FHST$LSR 
--Information displayed depends on SETGLOBE Global: 
&FHSTATS SETA 2 SELECT ACCESS 
3 SELECT INPUT OUTPUT 
5 SELECT GET PUT READ WRITE (VSAM LSR) 


Interval Control Global: &RPTINTV (assemble STARTUPS) 


ICOMLINK FILSTAT=YES Modules 


Linkedit: IXFRPTOL 
RPTOQO46 
RPTO0047 
Data Set: STATFILE (Optional) Disk (CREATEGF) 


Further Reference: Operating Reference Manual 
System Control Commands 
Features 
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S FILE STATISTICS 


During Intercomm Execution: 

FILE HANDLER STATISTICS--same as Terminal display--all files 
--At interval defined by &RPTINTV 
--At Close-down--final summary (including LSR stats) 
--Spooled to SYSPRINT 
--Cumulative 


Off-Line: 
SAM OPENS/CLOSES 

SETLS/QISAMG/QISAMP 

BISAMR/BISAMW/BISAMWKN 

BDAMR/BDAMW 

BSAMR/BSAMW 

QSAMG/QSAMP 

VSAMG/VSAMP/VSAMPT/VSAME 

SELECTS/RELEASES 

ALLOCS/ACCESSES 


by message # within subsystem code 


Further Reference: Operating Reference Manual 
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FILE HANDLER REGISTER USAGE 


R2 -- Dynamic (External) DSCT 


R8 -- Internal DSCT 


R12 -- Base Register of Called ENTRY 


Rll -- Base Registers of ‘Common Code’ 
R3 -- (after RELEX Entry) 
R4 -- # of parameters 


R5 -- CALLER’s I/O AREA 


R6 -- DCB/ACB 


R7 -- DECB/RPL 


See Also: Messages and Codes 
for ISK conditions and associated registers 
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CONSIDERATIONS AFFECTING-- 


@ RESPONSE TIME 
@ SUBSYSTEM TIME-QUTS 
@ CONVERSATIONAL TIME-OUTS 


Disk Pack-- 
Data Set Contention: 
-- User Files 
-- DYNLLIB 


-- INTERLOG (if on disk) 

-- MVS PAGE Data Sets 

-- $tore/Fetch Files 

-- DDQ Data Sets, particularly if used for 
Multi-Region 

-- Qverflow Disk Q Data Sets 

-- RCTOOO (if Output Utility heavily used) 

-- SNAPDD (if SPINOFF used) 

-- JES Spool Data Sets 

-- Cross-system RESERVE 
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ones 


610 


APPLICATION PROGRAM MANAGEMENT--Subsystem Controller 


Introduction 


Installation Requirements 


Interface: Structure and Processing 


Features 


Messages, Snaps and Abends 


Debugging Worksheet 
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FRONT END/BACK END COMMUNICATION 


Line Handler 

BMHINOOO 

MSGCOL ae, Beet 
QUEUE ‘ 


RETRIEVER 
S/S CONTROLLER | 
ma'®  scTRECe 


APPLICATION 


4 


6.1 Introduction 154 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


6.1 


SUBSYSTEM CONTROLLER--OVERVIEW 


RETRIEVER 


BAL 
SUBSYSTEM 


SERVICE 
ROUTINES 


Introduction 


SUBSYSTEM FDITCB 
CONTROLLER 

PREPROG PREPLI 
COBOL PL/1 
SUBSYSTEM SUBSYSTEM 
COBREENT 

SERVICE SERVICE 
ROUTINES ROUTINES 
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SUBSYSTEM CONTROLLER 


schedul ing/Termination 

-- Message Driven 

-- (Concurrency Processing 

-- Time Out Initialization/Cleanup 


Locates a Subsystem 

-- Resident 

-- Qverlay/Execution Group 
-- Dynamically Loaded 


Status Logging - Log Code 
-- Started 30 
-- Completed 

- successful FA 

- error FD 

- flushed FD 

- failed security check FE 
statistics 


-- Message Totals: Valid/Invalid 
-- Peak Processing 


Introduction 
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c 


Globals 
SPALIST 


Generation 
Macros 


Assemblies 


Linkedit 


User Exit: 


DSECTS: 


6,2 Installation Requirements 


SUBSYSTEM CONTROLLER 
INSTALLATION CHECKLIST 


None 


ASYNLDR (Overlay only) DWSCHK 


CNTDT 
ECB 
SWIN 


RESOURCE 
SYCTTBL 


None 


TCOMLINK 


Modules 


Tables 


SCNLIDS, SCTLISTC, RESRC 


SYCT400 
FDITCB 
PMICANC 
CKLINK 
SORPT 


INTSCT 


USRCANC (released as PMICANC) 


INDUMP 
MAXLOAD 
TASKNUM 


GENINDEX 
PCENSCT 


ASYNCH 

OVLYSTR 

TRANS 
ICOMTASK 
ASYNCH 
PMIOVLAY 
LOADOVLY 


INTSPA 


RPTO008/9 
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DEFINING SUBSYSTEMS TQ INTERCOMM 


All subsystems are defined to Intercomm by an entry in 
the Subsystem Control Table, generated by the SYCTIBL macro. 
There is one entry per subsystem defining the following: 


@ Subsystem Locality 
Dynamically Loadable (LOADNAM, BLDL, REUSE) 
Resident (QVLY=0) 
Qverlay/VS Execution Group (OVLY/EXGRP) 


@ Subsystem Characteristics 
subsystem Code (SUBH, SUBC) 
Entry Point (SBSP) if not loadable 
Language (LANG, PLILNK) 
Core Requirements (GET/FREE, SPAC) 


@ Processing Specifications 
scheduling (MNCL, ECB, SCHED, THRSH, RESOURC) 
Queueing 
(Core: NUMCL, PRYMSGS) 
(Disk: DFLN, PCEN) 
(Auxiliary: AUXS) 
Execution Priority (PRTY) 
Files (BACKOUT, DBASE) 
Features (DWSCHK, SAM) 
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Table: 


6.2 


DEFINING SUBSYSTEMS TO INTERCOMM (continued) 


e Control Parameters 
Timeout (TCTV) 
snaps (SNAP, INDUMP) 
VTAM response type (SRESP) 
Cancellation Criteria (CANC, REJECT, IMCDFL) 
security (SO0S0, TISE, SECU) 


Restart/Recovery (LOG, LSYNCH, RESTART, RVFILE, 


CNVREST, SEGREST) 


@® RESOURCE macro 
-- overrides total MNCL across the group of 
Subsystems with same value for RESQURC 


-- control max threads access to: file 
data base 
function 


-- control max threads producing printed reports: 


reduce DDQ access/contention 


INTSCT (Single region Intercomm) 
CRSCT, SRISCT, SR2SCT (Multiregion) 


Installation Requirements 
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SCT INDICES 


SCT Binary Search Index-- 
Used for Finding an entry by Subsystem code in the 
subsystem Control Table. (CSECT is SCTINDX) 


SCT Overlay Index-- 
Used for scheduling work for resident subsystems and 
overlay groups: (ENTRY SCXESCX, SCXFSO0G1) 


SCXESCX =DC 
SCXFRSS = DC 
SCXLRSS = DC 


* 


SCXFSOG1 DC 
DC 
DC 
DC 


Generated by: 


6.3 Interface: Structure and Processing 


ACSCXFRSS or last-ovly-index) 
AC first-resident-SCT) 
AC last-resident-SCcT) 


A(first-ovly-SCT or 1) 
A(last-ovly-SCT-same-group or (Q) 
AL1(ovly/exgrp-number or Q) 
AL3(0) 


if more ovly/exgrp numbers 


GENINDEX macro 
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CONTROL BLOCKS 


SPAPSCX ae 


SPAQVCP 


ad 
= 
= 

> 
» 


=nsion NDEX 


Sorted index 


SEXSCTS 
SEXSCTEX 
SEXVSIND 


by SS codes 


Plus within SCTEXT - 
LOAD QUEUE: chain of SCT Extensions for dynamically 
loaded subsystems waiting to be loaded, 


yw 


DELETE QUEUE: chain of SCTEXTs eligible for deletion 
--forced delete status: 
timed-out or program check 
reload requested (LOAD command) 
low-core condition (CUSHION released) 
not reentrant or reusable 
--optional delete status: 
no messages queued 
not schedulable (DELY command) 
MAXLOAD reached (below 16mg line) 
c DSECTS: SPALIST,SCTLISTC 
6.3 Interface: Structure and Processing 
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CONTROL BLOCKS POINTERS 


WD1 OF 

US S/A 

SPA 

(SPALIST) SPAPSCX SPAESOGL | 


SCT OVLY INDEX 
SCXESCKX 


[| st escxerss fs 
CXFSOG1 


SCT 
(SCT$STRT ) 


SC TLRES 


SPAEXT 
(SPAEXT ) 


oCT EXTENSION 
(SCTEXT) 


SCT INDEX 


6.5 INTERFACE: STRUCTURE AND PROCESSING 
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PROCESSING OVERVIEW 


Member Name: SYCT4O0 
CSECT Name: SYCTRL 
Entry Points: SCNMAIN PURGE SSRETRN 


MSGCOL 
é Post 
SS Q SCTRECB SPACTIVE 


/PMIRETRV. 


Wait USRCANC 
FDITCB SCNMAIN PURGE Msg Cancelled 


Abnormal End 


RESOURCE Scheduling 
inati RMPURGE 


SSRETRN 
Normal End 


if loaded 


BAL or PREPROG PREPL] 
Non-Reentrant SS 
Reentrant COBOL SS Reentrant PL/1 SS 


Further Reference: Operating Reference Manual 
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SUBSYSTEM CONTROLLER SAVE AREA 


0 EPA 
(standard save area) 
2 
call list parameter area 
4 for MF=(E, list) 
6 
8 
A L4SA SC MMN 
C 47 | ar MESSAGE HEADER 
alm; 
E 
10 (MISC) 
12 


+68 SCNTQE, SCNTCTV: Timer Queue Element, Value 
+A0 SCNI4SA: Register 14 Save Area - Return point 
+CQ SCNDYLEN: Dynamic Workspace Length 

+(2 SCNTHRED: Assigned Thread # 

+C4 SCNDYADR: Dynamic Workspace Address 

+C8 Message Header--used for logging and control 


Dsect: SCNLIDS 


6.3 Interface: Structure and Processing 


INTERCOMM THREAD CONTROL BLOCK 


SPA FDITCB SYCTHOO 
Assign Thread subsystem 
SPAEXTAD Number Controller 
SPAEXT 
‘TTCBPTRS! 64... 
SEXFITCB oy des 
(Eos 
ee a 
ITCB T#l 
v#2 
6 | 7 ITCB 


ITCB T#/7 


T#4 
ITCB ITCB 
T#6 T#63 


Formula: J# divided by 64 = I 
I * 4 = Vector-table-address in ITCBPTRS 
Vector-table-address + (remainder * 4) = ITCB-address 
If ITCB-address = 0 -- thread not allocated 


Dsect: ITCB (generated by INTTCB macro) 
-- Subsystem Controller S/A address 
-- SCT (SYCTTBL) address, etc. 


6.3 Interface: Structure and Processing 165 


THREAD CONTROL BLOCK MACRO 


Find an ITCB 


INTTCB (no operands)--generates ITCB Dsect 
INTTICB OPT=S or OPT=T, THREAD={address} 
{(1r) } 
Returns: 
--address of currently active/requested ITCB in Rl 
--if Register 1 = 0, then system thread executing 
or no ITCB assigned for requested thread number. 
Further Reference: Basic System Macros 


THREAD STATUS TABLE 


NAME--TSTATAB - Entry in SYCTRL Csect of SYCT400 
- pointed to by SEXTSTAT 


SIZE--256 bytes - 1 per possible thread (0 to 255) 
- X'00’ = thread not active (unused) 
- X’01’ = thread in use (assigned) 
- X‘1i’ = thread being purged 
- X‘15’ = thread is hung 


Assigned/Released by Subsystem Controller 
Referenced by: PMISNAP1, RMPURGE, TDUMP, SYSCNTL, TALLY 
Command: TALY$DA 
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QUIZ 


Debugging Using the ITCB 


Current Thread Number 
FDITCB Address 
‘TTCBPTRS’ Address 
Current Thread Vector Table Entry Address 
ITCB address for current thread 
Any other ITCBs allocated? 
Address Thread# status 


6.3 Interface: Structure and Processing 
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6.4 Features 


SUBSYSTEM CONTROLLER--FEATURES 


DYNAMIC LOADED SUBSYSTEMS 
DYNAMIC LINKEDIT 

DYNAMIC LOADED SUBROUTINES 
TIME ZONE PROCESSING 
COMMANDS 

STATISTICS 

SUBSYSTEM SAVE AREA CHAINING 
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DYNAMICALLY LOADED SUBSYSTEMS 
DYNAMIC LINKEDIT 


Installation Checklist 


Globals None 
SPALIST MAXLOAD= 
Macros SYCTTBL 
ICOMLINK DYNLOAD= 
Linkedit: Modules ASYNCLDR 
DELOAD 
LOADSCT 
SWMODE 
On STEPLIB 
Data Sets DYNLWORK 
DYNLPRNT 
DYNLLIB 
Dsects: DYNDSECT, ASYDSECT 


Further Reference: 


6.4 Features 


OVLY=0 


DYNLINK= 


TCOMCESD 


Operating Reference Manual 


LOADNAM= 
BLDL= 
REUSE= 


ICOMDYNL 


TCOMVCON 


Disk 
SYSOUT 
Disk 
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DESCRIPTION OF DELOAD 


DELOAD monitors all loading activity for loaded 
subsystems. DELOAD is invoked by the Subsystem Controller 
and in turn invokes the asynchronous loader, ASYNCLDR. 


Communication between SCNMAIN and DELOAD is established 
Via an ECB in the SPA Extension called SEXDLECB. The ECB is 
posted by SCNMAIN when a subsystem is put on the load or 
delete queues. fhe actugql LOAD and DELETE macros are 
processed in the Asynchronous Loader: ASYNCLDR, an attached 
(at startup) subtask, running with a priority 1 higher than 
the mother task, INTERCOMM. ASYNCLDR and DELOAD communicate 
via a pair of ECBs contained within DELOAD. ASYECB2 is 
posted by DELOAD, to indicate to ASYNCLDR the need to load or 
delete a module. ASYECB1 is posted by ASYNCLDR to indicate 
to DELOAD that the request for load or delete was completed. 
When posted that load/delete is successful, DELOAD then 
loads/deletes the subsystem under the mother task so it will 
be in/deleted from INTERCOMM’s CDE (except if non-reusable). 
For a load request, DELOAD then posts subsystem’s SCTLDECB, 


SYCT4O0 DELOAD ASYNCLDR 


Mg ote 
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cll 


Sainjpa4 4'9 


LOAD MODULE 


SQCOBOLA 
SQASMA 


SQPL1 


APWTESTC 
FHTESTL 
SNBKL1 
SNBKL2 
CONVIL 
TESTRLSE 
SQCOBOLB 


SQASMB 


SIZE 
(001388) 
(000C70) 


(000018) 


(001018) 
(O006F0) 
(000630) 
(0006D8) 
(0004D0) 
(000480) 
(000618) 


(O006E8) 


INTERCOMM 


UNRESOLVED EXTERNAL 
ALL LABELS ARE RESOLVED 
ALL LABELS ARE RESOLVED 


PLIXOPT IBMBPOPT 


SYSPINT 


PLITABS 
IBMBSIST 


ALL LABELS ARE RESOLVED 
ALL LABELS ARE RESOLVED 
ALL LABELS ARE RESOLVED 
SCTBCLPJ 


SCTEND SCTRES 


SCTEND SCTRES SCTBCLPJ 
ALL LABELS ARE RESOLVED 
ALL LABELS ARE RESOLVED 


ALL LABELS ARE RESOLVED 


DYNAMIC LINKEDIT 


SYMBOL DICTIONARY REFERENCES 


PLIXHD IBMBEATA 
PMITIMTB KEYTABLE 
PMITIMTB 


PLIFLOW 


VSSCTIND 


PLICOUNT 


DBINT 


IBMBSXCA 


TBMBSXCB 


LuOd3u LICSyNT] JIWVNAC 


DYNAMICALLY LOADED SUBROUTINES 


Definition Macro: SUBMODS DSECT: DYNDSECT 
Table: REENTSBS COBOL Copy List: ICOMSBS 
Program Interface: BAL MODCNTRL macro 
COBOL COBREENT 
PL/1 PMIPL1 


Processing: DYNLLOAD receives control via MODCNTRL: 
loads subroutine (CICOMLOAD) 
links to it, returns to caller 
schedules subroutine deletion (ICOMDEL) 


PMIDLOAD entries ICOMLOAD, ICOMDEL 
interface to ASYNCLDR 


Closedown Report -- loaded subroutines only: SUBRPT 


Linkedit ICOMLINK DYNLOAD= 
DYNLINK= 

Modules Same as for loaded subsystems plus 

REENTSBS PMIDLOAD DYNLLOAD 


Data Sets: DYNLLIB DEIR DYNLPRNT 


Further Reference: Operating Reference Manual 
Basic System Macros 
Programmers Guides 
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TIME ZONE PROCESSING 


Purpose: Specify Clock-dependent Subsystem Processing 


Activated via: TRIGGER 

SS Time Table: PMITIMIB 

Definition Macro: TMZONE  #SCHT=time-of-day 
PGID=lo-order-SS-code 
PGIH=hi-order-SS-code 
TCTV=sycttbl-TCTV-override 
PVMI=msg-hdr-VMI-code 
TMZC=request-identifier 


Dsect: TIMETBL 


Further Reference: Operating Reference Manual 
Basic System Macros 
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J 


COMMANDS 


Dynamic Loaded Subsystems/Subroutines--LOADSCT Subsystem 


e LOAD (also change MAXLOAD, GET/SPAC) 


Subsystem Control--FINTUNER Subsystem 


@ SPAC @e MNCL e SSFL 
@ PRITY e BEGN 
e ICIV @ DELY 


Dynamic Update SYCTTBL--DYNSSUP Subsystem 


@ FITUN @ SSUP 


Status Display--GPSS Subsystem - TALLY (RPTOQ043) 


@ TALY$SU @ TALY$BE @ TALY$DA 


Multiregion Control--MRCONSS Subsystem 


@® vvvv$STATUS$SS @ VVVV$START$SS 
@® VVVV$FLUSH$SS @ vvvv$STOP$SS 


Further Reference: System Control Commands 


6.4 Features 
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STATISTICS 
SAM -- Details/Totals by Subsystem 


STS -- # BE Messages Processed 
-- # Overlay Loads 
-- # Dynamic SS Loads 
-- # Dynamic Subroutine Loads 


STATUS LOGGING: Queued 
started 
Completed 
Cancelled/flushed 


LOGPRINT: -- Date 
-- Time 
-- SSC 
-- Log code 


LOG ANALYSIS: Peak Activity - Traffic 
Response Time 

Message Totals -- Valid 

-- Error 


Closedown Activity Reports: SSRPT 
SUBRPT 
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BAL 


TJKDSPO1 
b 


subsystem 
Controller 


BAL Program 
S/A via 


Called Program/ 

system Routine 
S/A via 
SUBLINK 


6.4 Features 


SUBSYSTEM SAVE AREA CHAINING 


PL/1 


TJKDSPO1 


i SDaTCne a 


subsystem 
Controller 


PREPLI 
S/A via 


Dynamic 
ISA Area 


Called Program/ 
System Routine 
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SUBSYSTEM SAVE AREA CHAINING -- COBOL 


Before CALL | ws s/a After CALL 2 


COBREENT after startup COBREENT 
IJKDSPO1 


IJKDSPO1 
Nispatche Nispatche A 
subsystem Controller ITCB subsystem Controller 
A NL TD As SCNLID 


PREPROG PREPROG 


a @ NKA a @ NKA 


COBOL Program 
S/A in TGT 


COBOL Program 


S/A in TGT 


Copy of TGT/PGT 


area and 
Called Program/ 


CALL Parm List 


saved by System Routine 
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COMMON PROGRAM CHECKS AND PROBABLE CAUSES 


Branch to data ared 

Referencing a module not linkedited with Intercomm 
Referencing a module missing from LPSPA link 

ISK issued by System Program (XA, ESA) 


1/0 error (from File Handler) 
ISK issued by System program (MVS/370) 


Referencing an area outside your program/storage 
Modifying a program linked as RENT 


Invalid data address 
Referencing an area outside your program 


Incorrect boundary alignment 
In BAL -- odd numbered register specified 1st when 
even- odd pair required 


Data field not initialized correctly 
Packed Decimal data has an invalid sign 
Incorrect index caused invalid data to be referenced 


Further Reference: Messages and Codes 


6.5 Messages, Snaps and Abends 
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SUBSYSTEM CONTROLLER 


SNAPS: 114 -- Enqueue Time-out 
118 -- Subsystem Time-out (TCTV exceeded) 
126 -- Program Check - SPIEEXIT 
-- ‘SPIE SAVE AREA’, PSW, Registers 13-12 

--Slow Snap - at beginning 
--Fast Snap - find literal 
subsystem Controller Save Area 
--find via ITCB 


Each snap type has informative message, 


Message Cancelled Processing - PMICANC 

Entry: USRCANC 

May be replaced by user-coded routine 

Called when: Time-out 
Program Check 
subsystem Return Code = 4/8 
Message flushed vid SSFL 
CANC=STOP in effect 


Further Reference: Messages and Codes 


6.5 Messages, Snaps and Abends 


SNAP 126 WORKSHEET FROM SPIE SAVE AREA PSW, REGS 


Csect Name and Displacement: 


oO DN MM Sse Noe CO Mm 


Oo AN mM Tse NN oO re WO MDM 


COLT LL 


DTD HNMtANnwoRAODAHA 


CITT UT 


SD HNM AN wWROOD a 


4 3 


List 


aramete 


6.6 Debugging Worksheet 


ce 


Led 


/ TP NETWORK MANAGEMENT - The Front End 


7.1 Introduction 


7.2 Installation - BTAM 


7.3 Interface: Structure and Processing - BITAM 


7.4 Features - BIAM 


7.5 Messages, Snaps and Abends - BTAM 


7.6 VTAM - Introduction 


7.7  \VTAM Installation 


7.8 VTAM Interface: Structure and Processing 


/.9 VTAM Features 


7,10 VTAM Messages, Snaps and Abends 
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7.1 Introduction 


TP NETWORK MANAGEMENT 


THE FRONT END 


ACCESS METHODS SUPPORTED 


e BIAM 


e TCAM 


@ = SNA/VTAM 


@e Others via GFE 
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INSTALLATION TP MANAGEMENT RESPONSIBILITIES 


e System Facilities 
-- Hardware 
-- Software (Access Methods, etc.) 
Standards 
Intercomm Table Maintenance 


INTERCOMM FRONT END FACILITIES 


Network Management 
Transaction Routing 

Message Header Construction 
Control Commands 


7.1 Introduction 
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DEFINITION OF TERMS 


Terminal--teleprocessing message transmission/reception device >) 
(CRT, Printer, Card/Tape Reader, Remote CPU/Mini, etc.) 


Local--device connected directly to CPU--’in house’. 


Remote--device connection via Communications Controller, Modems, 
Telephone Lines to external location/city: switched/leased., 


Communications Controller--interprets software requests into 
hardware action on the line--37xx, Comten, Memorex, etc. 


Leased--continuous connection between CC and terminal, 
controlled from CPU under Intercom. J 
Switched--broken connection completed via dialing on telephone 
line: --to terminal from CC 
--from terminal to CC 


Auto-Call--switched line--terminal may be called (automatically). 


Auto-Answer--switched line--CC automatically answers a call from 
q terminal. 


Protocol Converters--convert non-stanard to standard (3270) 
protocol. 


UCB--Unit Control Block-Defines channel to BTAM--device type, tc, 
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DEFINITION OF TERMS (continued) 


Point-to-Point--leased line--only one terminal permanently 
connected to line. 


Multipoint--leased line--multiple terminals connected to the 
line via one terminal control unit. 


Multidrop--leased line--multiple terminals connected to the 
line via multiple control units. 


Polling--required for multipoint/multidrop lines--selects 
device for read request via: 
-- (Control Unit--General Poll 
-- Individual terminal--Specific Poll 


Addressing--to write a message to a specific terminal ona 
mMultipoint/multidrop line, it must first be addressed-- 
confirm terminal available to receive a message. 


Asynchronous--simple line communication (Start/Stop). No 
parity-checking (garbled data). Text sent in a continuous 
Stream until end-of-message (unbuffered) . 


Binary Synchronous--complex line communication. Parity checking 
(error recovery). Text received (by CPU) in segments of 
device I/0 buffer length (3270 CRT=256), 

Hand-shaking line protocol--confirmation. 


7.1 Introduction 
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DEFINITION OF TERMS (continued) 
SDLC--Synchronous Data Link Control (VTAM only) J 


Line Protocol--channel programs and control characters necessary 
for terminal/CPU communication: STX/ESC, EOB, ETX, EOT, etc. 


Data Link Control--additional control characters: 
ESC sequences--e.g., Dataspeed 40/1, 2 
Write commands--3270 
Device Selection--Punch/Printer, etc.--3275 
Terminal Turnaround--receive/transmit 
Tdles, Backspace 


Modem--Hardware box (Data Set) between: -- CC and line | 
-- line and terminal J 
verifies line connection established (carrier) 
verifies transmission can be initiated 
controls transmission speed 
-- bits per second--BAUD rate 
-- characters per second 
-- Baud rate divided by 10 (approximate) 
-- Asynch = 10-4800, Bisync = 240-up 
controls transmission direction 
-- half/duplex--unidirectional at a time 
-- full/duplex--both directions--same time 
(not supported by BTAM) 


Translate Table--Transmission code translation 
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DEFINITION OF TERMS (continued) 
C Line Group--group of lines controlled via one DCB 
must be same transmission type (Asynch/Bisync) 
if Bisync--same transmission code: ASCII, EBCDIC, BCD, etc. 
same transmission speed not required (except modem 
compatibility) 


Line--one continuous telephone line connection: CC-terminal, 
controlled over one channel from CPU 


Terminal List--leased-polling list 
open: each device (CU) selected (by CPU) once until end of 
list reached; if nothing to read--control returned to line 
handler. 
wrap: continuous polling--wrap around from end-of-list to 
beginning until somthing to read. 
quto: list sent to CC--initiates poll--CPU not involved 
until end-of-list. 
qutowrap: list sent to CC--wraps around until something to 
read--then interrupts CPU: most efficient 


Terminal List--switched 
Answering List: 
Asynch--terminal-id request ‘message’ 
Bisync--list of terminal-ids--checked by BTAM 
Call List: 
Cc Asynch--‘ready-to-receive’ indication from CPU 


7.1 Introduction 
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7.1 


TP NETWORK MANAGEMENT OVERVIEW 


LINE CONTROL 


Establish Connection/Ready-to-receive 
Transmit data 

Acknowledge receipt 

Terminate Connection/Line Turnaround 


DEVICE MANAGEMENT 
@ Mode of Operation 


e Configuration 
e 1/0 Media 
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Human 
Input 


SS LS ES OS LT LS Le ee AS LT Se. A Te 


Typewriter 
Keyboard 
Telephone Dial 


special 

- keyboard 

- buttons 

- levers 

- dials 

- light pen 

- badge reader 


7.1 Introduction 


DEVICE MANAGEMENT 


T/O MEDIA 


Answer-Back 
& Display 


Typewriter 
Display 
Audio 
Printer 
Plotter 


Document 
Transmission 


= SSS SS SS SS 


Paper Tape 

Cards 

Magnetic Tape 

Remote CPUs 

Mini-computers 
(distributed processing) 


Data Collection Devices 
Optical Scanner 
Microfilm 
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LINE CONTROL 
CONFIGURATION J 


PoINT-TO-PoINT (LEASED/SWITCHED) 


CONTROL UNIT 
(MAY BE 
BUILT IN) 


MULTIPOINT (LEASED) ) 


(er CONTROL UNIT 


7.1 INTRODUCTION 
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LINE CONTROL 


REMOTE 


Mopem POINT-TO-Po INT 
© : 
| ¢ 
CC P 
= | 


MuLTIDROP (MULTIPOINT) 


- Pe 


7.1 


INTRODUCTION 


LOCAL 


a - TO) 
cuUuO 
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TP NETWORK COMPONENTS 


CRT 
COMPONENT REMOTE 32/0s 


CU 
POINT-TO-POINT 
5271 


MULTIPOINT/MULTIDROP 


CY cm car on ww 
CU SWITCHED HARDCOPY 
5272 - 


U 
OH 3075 


G m 
a ~. PAPER 
GIGI TAPE 


Sete tea oA oe eet at eet ced 
eae ACCESS METHODS 
3270s INTERCOMM 
-FRONT END 
Back END 
NucLEus 


a 
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FRONT END SPECIFICATION 


GLOBALS--specify Environmental/Hardware Characteristics 


--SETENV, SETGLOBE (&BTAM SETB 1) 


TABLES--DEFINE OPERATING CHARACTERISTICS 
e Verb Table (BTVERB) - BIVRBIB 
@ Network Definition Table 
--Network Configuration 
LINEGRP (DCB) 
BLINE (DECB) 
BTERM 
--Device Table (BDEVICE) 
--Terminal-id Table (Switched) 
DFTRMLST 
--Polling List Table (Leased) 
POLLIST 
--Translate Table (ASMTRTAB) 
--AID Processing Table 
ATDGRP 
AIDDATA 


--DEFINE TERMINAL QUEUES--BTAMSCTS (SYCTTBL) 
--DEFINE BACK END TABLES 

e Station Table - PMISTATB 

e Device Table - PMIDEVTB 

@ Broadcast Groups - PMIBROAD 
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THE FRONT END -- BTAM 
Installation Checklist 


Globals SETENV SETGLOBE 
SPALIST CCNID Control Terminal 
SEP system Separator 
Definition 
Macros BTVERB DFTRMLST 
LINEGRP LERB 
BLINE ASMTRTAB 
BTERM 
BDEVICE STATION 
AIDGRP DEVICE 
AIDDATA DVMODIFY 
POLLIST BCGROUP 
Assemblies see List 
Linkedit Automatic Modules (see list) 
Tables BIVRBIB PMISTATB 


FENETWRK PMIDEVTB 
(BTAMSCTS) PMIBROAD 


Data Sets BTAMQ Overflow Disk Q 
JCL LINEGRP DDNAME UNIT=channel-address 
Dsects: PVRBTBLE, LGDSECT, PLNDSECT, DIALTBL, PTRDSECT, 


PEXTABLE, DEVTABL, BTAMWORK, BTSPA, AIDSECTS 
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INTERCOMM FRONT END -- MODULES 
Conditional Assemblies 


BDIAL FECMD 

BLHIN FEMSG 

BLHOT FEWHOT 

BLHTRACE GFEINTFC . 
BMHOOO IGGOLOMP 7 
BSCDIAL INTVRBOO 
BSCLEASE LOPENMOD . 
BSEGMOD QUTDS40 . 
BSTATZ2 QUT3270 ‘ 
BTAMLINE PMIBTSTR 
BTSEARCH PMIEXTRM 
BIVERIFY QUEUEMOD 
CNTOIMOD SIMTTY 7 
COPYSS TPUMSG 

ERRSTATS USRBTLOG 
ERRSTMSG USRER129 . 


* - IF FEATURE IS USED IN FRONT END ENVIRONMENT 


Always reassemble: BLHIN, BLHOT, BTAMLINE, TPUMSG, 
BMHOOO, BTSEARCH 


Further Reference: BTAM Terminal Support Users Guide 


7.2 Installation-BTAM 


ADDING A NEW TERMINAL 


Turn "on" SETENV 
Conditional Assemblies 


LINEGRP 
BLINE 
BTERM 
BDEVICE 
POLLIST 
ASMTRTAB 
AIDGRP 
AIDDATA 


Reassemble Network Table 
BTAMSCTS 

CREATEGF 

STATION 

DEVICE 

BROADCAST TABLE 


JCL 


7.2. Installation-BTAM 


- New Terminal Type 
- For Changed Globals 


New Line or Group of Lines 
- New Line 

- New Terminal 

- AS Necessary 


- New Queue (if not on BTERM) 
- Format (new) Disk Queue 

- New Terminal 

- As Necessary 


- Concatenation Sequence for 
Line must match 
BLINE Sequence 


198 


2 


c 


FRONT END -- BACK END TABLE RELATIONSHIPS 


TP Interface 


Front End 


--BTVERB 


--LINEGRP 


--BLINE 


--BDEVICE 


7.3. Interface: 


Editing/Formatting Interface 


PMIVERBS 


Network 


--VERB 


PMISTATB 


--STATION 


--DVMODIFY 


PMIDEVTB 


Structure and Processing-BTAM 


--DEVICE 
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7.3 


NETWORK CONFIGURATION TABLE AND DEVICE TABLE 


BLINE 
(DECB) 


BTERM 


LINEGRP 
(DCB) 


(DECB) 


BTERM 


BTERM 
BTERM 


Interface: Structure and Processing-BTAM 


2 


© 


0: 


FRONT END CONTROL BLOCKS -- POINTERS 


WDl oF 


OS S/A | | 
SPA PAEXTAD 
SPAEXT 1 EXBTSPA 


BISPA WBIDECB | BTDCBS | BITVRBTAD | BIDEVTBL | BTSCTQOT | BTADDSPA 


we 
BTVERB 


BDEVICE 


LINEGRP 
LGFSTLN 
LGLSTLN 
LGUNIT (TYPE) 


BLINE | 
BIER BIAMSCTS 


BLINE INTQA 


BTERM INTQB 


PTRDEV BTAMOUT@ - SYCTIBL _ _ _ 
PTRQNUM SYCTTBL 


wee eS SS = ee see ee lee 
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LINE HANDLER BTAM MACRO REQUESTS 


@ READ INITIAL 
--PoLL-LEASED 
--WAIT FOR CALL-SWITCHED 
--FIND TERMINAL WITH CORRESPONDING ID 
--SET LINE/TERMINAL CONNECTED 


e WRITE INITIAL 
--ADDRESS TERMINAL~-LEASED 
--CALL TERMINAL-~-SWITCHED 
--SET TERMINAL CONNECTED 


e READ CONTINUE 
--READ A MESSAGE--ASYNCHRONOUS 
--READ A SEGMENT--BISYNC 
--ACCUMULATE SEGMENTS UNTIL EXT/EOQT 
(ForcED FoR 32/0 CRT) 
--QUEUE EACH SEGMENT AS A MESSAGE 


e WRITE CONTINUE 
--WRITE A MESSAGE--ALL 


e WRITE DISCONNECT 
--DISCONNECT SWITCHED LINE/TERMINAL 


e LOPEN 
--RECONDITION LINE (DISABLE/ENABLE) 


e  RESETPL 
--HALT POLLING (LEASED) 
--HALT OUTSTANDING READ INITIAL (SWITCHED) 


e REQBUF/RELBUF 
--REQUEST/RELEASE BUFFER FROM/TO BUFFER POOL 


e CHGNTRY 
--REQUEST CHANGE POLLING LIST (ADD/REMOVE ) 
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c 


PMI STUP 


STUOVLY 


EXIT TO THE 


DISPATCHER 


CLOSDWN3 


7.3 Interface: 


START UP 


FROM O.S: 


STARTUP/RESTART 


PMIBTSTR 
(BIAMSTRT) 


CLOSE DOWN 


Structure and Processing-BTAM 


BIVERIFY 1 


BTAMLINE 
OPEN DCBs 


DISPATCH LINE| 2 
HANDLERS 

GFEINTFC 

OPEN GFE 3 


CTCAM) ‘LINES’ 
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FRONT END/BACK END COMMUNICATION 


BLHIN BTSEARCH 
BMHINQOO 
MSGCOL ~=séCys« - ------------- 
Post 


APPLICATION 


FESEND 


7.5 Interface: 


(more) 


Structure and Processing-BTAM 


INTVRBOO 
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FRONT END/BACK END COMMUNICATION (continued) 


c 


BIQUEUE 


MSGCOLQ 


Yee 


BTQECB 
BMHOTDEQ | IntERCEPT Q PROCESSING 


m—IA( SCTECB 


| 
| 
| 
| 
| 
| 
| 
| 


SCTMECB 
SCTBECB 
PTRQUE 


| 

| 

ann 
| 

| 

| 


WO Veet he ee ad, ee 


BMHOTDEQ 


7.5 Interface: Structure and Processing-BTAM Si 


FRONT END/BACK END COMMUNICATION (continued) 


Reset 


Poll ee 
(BTSEARCH) 


Output has priority over input, 


Read always outstanding when nothing can be written (leased). 


Terminal disconnected when nothing to read or write (switched). 


7.3 Interface: Structure and Processing-BTAM a6 


INPUT MESSAGES 


FORMAT : 
VERBSTEXT. 4.5, a 
WHERE: $ = SYSTEM SEPARATOR 
a@ = EOT, EITC. 


VERB: 
1 to 4 characters on input 
short verbs are padded (right) with Xs 
to 4-character length 


TRANSACTION ROUTING 
e Transaction code 
--Processing Subsystem 
--Multiregion Queue 
@ Front End Command 
@ Fast Message Switch 
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TRANSACTION PROCESSOR 
BTSEARCH 
CALLED FROM SRCHVRB eEntrRY IN BLHIN 


MESSAGE 


Caps FECMD TPUMSG 


NO 
FAST 
YES MESSAGE 
SWITCH 
NO 
~NO 
NO VERB 
FOUND’ 
YES 


RETURN WITH 
VERB ADDRESS 


7.3 Interface: Structure and Processing-BTAM 
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MESSAGE HEADER CONSTRUCTION 


Completed by SRCHVRB in BLHIN 


Receiving Subsystem Codes 
VMI 
QPR - Segment code Terminal Identification 
Message Length (MSGHTID) 


VMI = FF if no editing required (BTVERB EDIT=NO) 
00 if editing needed (BIVERB EDIT=YES) 
O1-FE if edited (BTVERB EDIT=BQ) 


7.3 Interface: Structure and Processing-BTAM ai 


QUIZ 


1. How WOULD ONE QUICKLY FIND THE 
FRONT END TABLES BY A SCAN OF 
THE DumP? 


2. ADDRESS OF THE FIRST LINE GRoUP 


3, WHAT TYPE oF LINE GROUP IS IT? 


4, ADDRESS OF ITS FIRST LINE? 


5. ADDRESS OF ITS LAST LINE? 


6. How MANY LINES IN THE GROUP? 


7. HOW MANY TERMINALS ARE ASSOCIATED 
WITH THE FIRST LINE? 


/.3 Interface: Structure and Processing-BTAM 
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RESPONSE TIME CONSIDERATIONS 


e General Poll vs. Specific Poll 


e Polling List Type--Open/Wrap/Auto 


e Dedicated vs. Shared Queues 


e Core Queueing vs. Disk 


e Priority Queueing 


e Front End Priority vs. Subsystem Priority 


@ Logging -- YES/NO, ASYNCK/SYNCH, RESTART 


@ Number of Terminals vs. Number of Lines 


@ Message Length 


e Core Pools Tuning--Message Areas, Work Areas 


@ Hardware Problems--Efficiency 


e Line Speed 


e Software Error Recovery 
--CC, CPU, Intercom 


7,4 Features-BTAM 
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CPU CONSOLE AS A TERMINAL 
e Intercomn Communication 
@e Use as Control Terminal for TCAM 
e Processing: CNTOQLMOD 
CONTROL TERMINAL 
@e System Control and Command Responses 
@e Secured Information/Requests 
e Error Reporting 
FAST MESSAGE SWITCHING 
@ Tid$Text..... A) 
SCREEN MANAGEMENT 
@e Function Keys 
-- AID Processing 
-- 3270 Header Interpolation 
e Device Timing Considerations 
-- (CRT Processing 
-- RLSE Command 
SEGMENTED INPUT MANAGEMENT 


Further Reference: BTAM Terminal Support Guide 
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CONVERSATIONAL SUPPORT 


@e Requires SETENV--&CONVER SETB 1 


@e Conversational Mode 
~~ BTERM CONV=YES 
-- BTVERB CONV=time-out interval 


@ Conversational Time-out--Error Message 
-- Subsystem delayed? 
-- Subsystem hung? 
-- Subsystem Program check? 
(SNAP processing delay) 
-- Enough time allowed? 
BTVERB CONV= 


@e RLSE Command--delayed message 


7.4 Features-BTAM 
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ALTERNATE TERMINAL 


@e Automatic Assignment--BTERM ALT= 


@e Manual Assignment--TDWN ATDname 


If no alternate terminal is specified, messages are held 
until flushed or destination terminal is available. 


AUTOMATIC TPUP 


e After I/0 Errors cause terminal down 


@e Maximum I/0 Errors before TDWN: 
-- BDEVICE -- MAXERR 


@  BTERM AUTOUP=YES 
BDEVICE UPINTV=interval 


7.4 Features-BTAM 
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LINE CONTROL CHARACTERS 
INSERTION/DELETION 


BDEVICE -- EXTCHR 
STCHAR 
CTCHAR 
LAST 
ENDCHAR 


ASYNCH LINE FEATURES 


e Idles 
e Back Space 


PRINTER BUFFER-EMPTY CONTROL 
BDEVICE -- CHPS 
ALTERNATE BUFFER PROCESSING 


BDEVICE ALTBUF=size 
DVMODIFY ALTBUF=YES, BUFFRSZ=sizel,LINESZ=nn] 


32/70 Write Command = EWA (X‘7E’) supported by: 
MMU--MAPEND MCW option 
--MAPGROUP macro COMMAND= 
Output Utility--REPORT ALTBUF=YES 
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FRONT END CONTROL COMMANDS 


BTDN/BTUP 

STLG/SPLG 

STLN/SPLN 

TPUP/TDWN 

STPL/SPPL 

SECF/SECN 

WHOT/WHOU 

LOCK/UNLK 

LOKR/ULKR 

RLSE 

FLSH 

QHLD/QRLS 

SNBK/SWCH 

COPY 

LTRC 

SCTL$DSPCH${BTSPA } 
{TID=name} 
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STATISTICS 
c ONLINE COMMANDS 


STAT 

STATSERR 

TALY$SU 

TALY$FE[ (tid) ] 
TALY$FQ/FN/BD/BU/FD/FU 


REPORTS 


@ SAM -- MESSAGES 


-- FECLS 
a -- FEOTPUT 
@ STS -- # FE MSGS PROCESSED 
-- # FE DISK Q BLOCK WRITES 
-- current BMN number 
@ LOGPRINT 
@e LOG ANALYSIS 
-- Response Time 
-- Traffic 
Cc Further Reference: System Control Commands 


Operating Reference Manual 
7.4 Features-BTAM 
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USER EXITS 


@e USRBTLOG (sample provided) 


@ USRXIN 


@ USRECRY (sample provided) 


@ = INQEXIT 


@ USRTDWN 


@ USRTPUP 


e COPYEXIT (sample provided) 


@ USRBSCEX 


@e USRER129 (sample provided) 


@ USROTEDT 


Further Reference: BTAM Terminal Support Guide 
Operating Reference Manual 
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BLHIN/BLHOT REGISTER USAGE 


NAME USAGE 
RO Variable 
R1 Variable 
R2 Variable 
R3 second Base 
R4 Current Message 
R5 Current BDEVICE 
R6 BISPA (First Base) 
R7 Variable 
R8 Variable (DCB) 
R9 Variable 
R10/RA Current BTERM 
R11/RB Current BLINE 
R12/RC Variable (DCB--Line Group) 
R13/RD save Area 
RL4/RE Variable 
R15/RF Variable (Current BDEVICE) 


BDIAL -- Base Registers -- 5, 12 


7,5 Messages, Snaps and Abends-BTAM 
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FORMAT OF BTAM BUFFER POOL 


BUFFER 
CONTROL 
BLOCK ADDR. OF FIRST NUMBER OF LENGTH OF 
AVAIL. BUFFER AVAIL. BUFFERS BUFFER 
ee eee 
4 BYTES 2 BYTES 2 BYTES 
ADDR. OF NEXT 
AVAIL. BUFFER 
ADDR OF NEXT 
AVAIL. BUFFER 
BUFFERS 
ADDR OF NEXT 
AVAIL. BUFFER 
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INPUT/OUTPUT BLOCK (IOB) 


00 FLAG 1 (NOTE) | FLAG 2 SENSO SENSI 


Appr. oF ECB (To VERIFY RIGHT 
IOB) 


COMPLETION 
04 CoDE 


I OBFLAG3 
08 
OC CSW. BYTES 4-7 


10 SIO Conp Cope 
14 Appress oF DCB 
CHANNEL Procram (CCWs) 


NOTE: FLAG 1=C2 For /F COMPLETION 
C6 FoR 41 COMPLETION 


CSW. Bytes 1-3 
(PoINTER To Next CCW) 


ADDR. OF START OF (LOGICAL) 
CHANNEL PROGRAMS 
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EVENT CONTROL BLOCK (ECB) 


PRB ADDR. 


/F 
41 
43 
80 


I/O completed successfully 

I/0 error occured 

RESETPL caused neg. resp. to read 
Waiting on I/0 completion 


Also Check Dispatcher Entries - WAIT/TIME/EXEC Q’s 


WQE : 


7.5 Messages, Snaps and Abends-BTAM 


ECB/TIME Ear PARM 


(usuaglly BLINE addr.) 
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DEBUGGING EXAMPLE 
Terminal No Longer Polled 


1. What is the status of the DCB? 
Check DCBOFLGS. 


2. What is the status of the Line? 
EEEE in DECSDECB=DCB closed 
Check PLNSW--PLNACT, etc. 

Check Dispatcher Queues 


3, What is the status of the terminal? 
Check PTRSW--PTRACT, etc. 
Active in the polling list-PLNPOLL? 


4, What happened during last I/0? 
Find IOB for the line. 
Check channel program. 


5, What is the line handler for that line doing? 


Check PLNSW, 
Check Dispatcher Queues. 


7.5 Messages, Snaps and Abends-BTAM 
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VTAM 


7.6 Introduction 

7.7 ‘Installation 

7,8 Interface: Structure and Processing 
7.9 Features 


7,10 Messages, Snaps and Abends 


C 


7.6 VTAM - Introduction 


227 


UOFJINPOAAUT - WVLA 9°Z 


AA 


3780 SNA CLUSTER MAINFRAME HOST 
CONTROLLER 


VTAM I NTERCOMM 
aaa CAP | Omi REGION REGION 
3767 CAP | SDLC CONTROLLER INTERCOMM 
LINE APPLICATIONS VTAM 
INTERFACE FRONT END 


3276 SNA CLUSTER 
CONTROLLER 


I NTERCOMM 
BACK END 
APPLI CATION 
SUB SY STEM 


3279 
TERMINAL 


BSC 
LINE 
APPLICATION 
SUBSYSTEM 
3277 LOCAL 3270 TERMINAL 
TERMINAL 3271 BSC CLUSTER 
COWTROLLER 
eee LOCAL 3270 TERMINAL 
TERMINALS: Device to communicate with outside world, for example, CRT and Keyboard, Printer. 


Examplea: 3604, 3618 (3600 System) 
3277, 3767 (3790 System) 
327x, 328 (BSC/SNA 3270 System) 


SNA CLUSTER 

CONTROLLER: Special purpose small computer that executes user-written application programs that 
communicate with terminals, perform local processing of data, and communicate with 
application programs in S/370. May also be microcoded, having no user code (for 
example, 3276) 
Examples: 3601, 3791, 3270 system. 

COMMUNICATIONS 

CONTROLLER; Telecommunications computer that executes the Network Control Program (NCP) to 
manage lines between SNA controllers and VTAM. 


MAI NF RAME 
HOST: Host computer executing MVS with region/address spaces for: 

VTAM; Virtual Telecommunications Access Method (VTAM) allocates network 
resources and routes data through network and to application 
systems. 

INTERCOMM: Intercomm application system utilizes system routines to schedule 


Intercomm subsystems when input is received from SNA controller 
programs and sends output from these subsystems back to the SNA 
controller programs. User-written Intercomm subsystems process the 


input, access ax ies base, and create the output, 


INSWNOYTANS WVLA/YNS 


SNA -- ARCHITECTURAL LAYERS 


TERMINAL USER 
OPERATOR PROGRAM 


End User Application 


Layer . : BO 


Function 
Management 
~----------------- Layer ------------------ 
Data Flow Control Data Flow Control 
send/Receive send/Receive BO 
Control Control 
(Transmission) (Transmission) 


Addressing Transmission Addressing 
(Path Control) Management (Path Control) 
Layer 


Data Link Control Data Link Control 
Data Link 


A -- PEER LAYER COMMUNICATION 
B -- ADJACENT LAYER COMMUNICATION 
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NODE STRUCTURE AND COMPONENTS J 


LAYERS NODES 
COMMUNICATIONS 
HOST CONTROLLER 
een | Rs of 
FUNCTION NAU'S PU PU 
MANAGEMENT LU's | PU | SSCP (CONT.) | (TERM. ) 
TC TC 
TRANSMISSION 
MANAGEMENT DLC DLC 
LOCAL CLUSTER CLUSTER 
DLC 
TRANSMISSION PC ~ 
MANAGEMENT 
FUNCTION NAU'S LU'S 
MANAGEMENT 
APPLICATION 
TERMINAL 
DLC 
TRANSMISSION PC 
MANAGEMENT LG 
FUNCTION NAU LU 
MANAGEMENT 
APPLICATION a ae 
OPERATOR J 


NAU = NETWORK ADDRESSABLE UNIT 
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INFORMATION FLOW -- ORIGIN TO DESTINATION 


HEADER 
PIU 
TRANSRTESTON | 

HEADER 


HEADER | TRAILER 


CONTROLLER 
BLU 
PIU 
: a a 
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SESSION TYPES 


SSCP = SYSTEM SERVICES CONTROL POINT 
PU = PHYSICAL UNIT 
LU = LOGICAL UNIT 


7.6 VTAM Introduction 
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A. REQUEST BY SECONDARY 


SESSION INITIATION 


SECONDARY 
LOGICAL 
UNIT 


B. REQUEST BY PRIMARY 


APPLICATION 


7.6 VTAM Introduction 


1. INITIATE 
Cc. POS. RESP. 


3. CINIT 


2. INITIATE 


SYSTEM 
SERVICES 
CONTROL 

POINT 


9. SESSION 
STARTED 


5. LOGON 


LOGICAL 6. OPNDST APPLICATION 
UNIT 


PRIMARY 
LOGICAL 
UNIT 


6. SESSION 
STARTED 


SYSTEM u. BIND SECONDARY 


SERVICES Sia. pees. LOGICAL 
CONTROL . POS. RESP UNIT 
POINT 
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LOGICAL UNTT COMMUNICATION 


@ CHAINING 


@ BRACKETING 


@ QUIESCING 


@ CONTROL MODE 


@ PACING 


@ DEFINITE/EXCEPTION RESPONSES 


@ NORMAL/EXPEDITED FLOW 


7.6 VTAM-Introduction 
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THE INTERCOMM -- VTAM FRONT END 


VTAM 
NETWORK 
DEFINITION 

TABLE 


VTAM/ 
INTERCOMM 


CONVERSION ID 
TABLE 


INTERCOMM 
/NTAM 


INTERFACE 
CODE 


USER 
EXITS 
(GENERAL) 


USER 
EXITS 


(LU RELATED) 
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NETWORK DEFINITION 


VOT naan , SEQNO=BTAM, ULVB=LVB1 

LUNIT sevens , LSB=LSB1, CSB=CSB1, 
NUMCL=nn, DFLN=daaaaaaa, PCEN=nn, 
VT ID=vtamname 


LUNIT svnons ,LSB=...,VTID=..., 
LCOMP waaeee ,CSB=,..,NUMCL=nn, etc. 
LCOMP waeuee ,CSB=...,NUMCL=nn, etc. 
LUNIT vuuues , LSB=LSBCPU 
PMISTOP 
PCENSCT 

LSBL = VILSB On aaaas , ULVB=LVB2, TRSTBL=LOWTOUP 


LSBCPU VTLSB LUTYPE=SYSCON 


CSBL = -VICSB ou aaaes , AIDGRP=1 


LVBL = VILVB vuuaae 
LVB2. = VILVBouaaaas 


LOWTOUP COPY TRAN3270 
PMISTOP 
AIDGRP 1,..... 
AIDDATA 
END 
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FRONT END SPECIFICATION 


GLOBALS--specify Environmental Characteristics 
--SETGLOBE (&VTAM SETB 1) 


TABLES--DEFINE OPERATING CHARACTERISTICS 
@ Verb Table (BIVERB) - BIVRBITB 
@ Network Definition Table 
--Network Configuration 
VTAM Control Table (VCT) 
LUNIT 
LCOMP 
--Network Specifications 
Logical Unit Specification Block -- LSB 


Component Specification Block -- CSB 
--User Exit Vectors 
Logical Unit --  LVB 


--Terminal-id Table (VTIDTABL) 

VTIDTAB (generate from LUNIT VTID=) 
--Translate Table (ASMTRTAB) (TRAN3270) 
--AID Processing Table 

AIDGRP, AIDDATA 


--DEFINE TERMINAL QUEUES--VTAMSCTS (SYCTTBL) -Automatic 


--DEFINE BACK END TABLES 
e Station Table - PMISTATB 
@ Device Table - PMIDEVTB 
e Broadcast Groups - PMIBROAD 


7./ VTAM Installation 
23/7 


Globals 


SPALIST 


Definition 
Macros 


Assemblies 
Linkedit 


Data Sets 
JCL 


THE FRONT END -- VTAM 
Installation Checklist 


SETGLOBE 


CCNID 
SEP 


BIVERB 
VCT 
LUNIT 
LCOMP 
VTLSB 
VTLVB 
VTCSB 


(VTIDTAB) 


(see list) 
ICOMLINK 
Modules 
Tables 


VTAMQ 
None 


&VTAM 


Control Terminal 
System Separator 


ATDGRP 
AIDDATA 
PMISTOP 


STATION 
DEVICE 
DVMODIFY 
BCGROUP 


VTAM= 
(see list) 
BTVRBTB 
FENETWRK 


(VTIDTABL) 


PMISTATB 
PMIDEVTB 
PMIBROAD 


Overflow Disk Q 


Dsects: PVRBIBLE, VCT, LUDSECTS (LUB, LUC, LSB, CSB), 
AIDSECTS, VIBUFFER, VRT, VXQCB 


7.7 TAM Installation 


INTERCOMM FRONT END -- MODULES 


VTRECVE VTERRMOD 
VTSEND VTLUCMD 
VTAMSTAT VTSQRSYN 
VTRESP VTVREERR 
VTEXITS VTAUTQUP 
VTLUSCAN VTQMOD 
VTOLMOD 

VTICDM1 QUT3270 
VTCDM2 CLOSDWN3 
VTCDM6 BLHSTRC 
VTLUDM2 FECMD 
VTLUDM6 FEMSG 
VISTART FEWHOI 
VTTRACEV INTVRBOO 
VTURLRX1 PMIEXTRM 
VTUROTX1 SYSCNTL 
VTURSDX1 TALLY 


* - IF FEATURE IS USED IN FRONT END ENVIRONMENT 


VTAMSCTS--automatically generated 

VTIDTABL--if not automatically generated and not in 
Network Table 

AIDTABLE--if not in Network Table 


/./ TAM Installation 
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ADDING A NEW TERMINAL 


Include Module(s) New Logical Unit Type(s) 


in the Linkedit 


LUNIT - New Logical Unit 

(LCOMP - New Component(s) ) 

VTLSB - New Logical Unit Type 
VTCSB - New Characteristics 
(VTLVB) 

(VTIDTAB) 

ASMTRTAB - Translate Table as needed 
ATDGRP - If Type = 3270 

AIDDATA 


Reassemble Network Table 


CREATEGF - Format (new) Disk Queue 
STATION - New Terminal 

DEVICE - as necessary 

DVMODIFY - as necessary 

BCGROUP - Broadcast Group 
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FRONT END -- BACK END TABLE RELATIONSHIPS 


TABLE TYPE 


(transaction 
codes) 


NETWORK FENETWRK 


(BTVRBTB) 


--LINEGRP 


--BLINE 


--BTERM 


--BDEVICE 


7.8 VTAM Interface: 


FRONT END 


BACK END 


PMIVERBS 


FENETWRK 
(BIVRBTB) 


PMISTATB 


--STATION 
--DVMODIFY 


PMIDEVTB 


--DEVICE 


Structure and Processing 
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NETWORK CONFIGURATION TABLE RELATIONSHIPS 


CSB 


eo | 
CSB 
om _ 
LVB 


7.8 VTAM Interface: Structure and Processing 


NO 
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FRONT END CONTROL BLOCKS -- POINTERS 


68 s/h 

SPA SPAEXTAD 

OPAEXT SEXBTSPA SEXVCT 

VCT VCTLUT | VCTSPEC | VCTAPOOL VCTSCT | VCTSPA | VCTACB 


§ ACB 


LUNIT APPLID = 
/ LUBLSB a PASSWORD = 
LUCCSB (aa 


LUCSCTOF 


LUCCSB 
LUCSCTOF 


VTAMSCTS 
| SYCTTBL 


Wg CT TBL 


SYCTTBL 
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VTAM REQUESTS -- CONTROL BLOCKS/MACROS 


CONTROL BLOCKS 


ACB -- Access Method Control Block 
EXLST = -- Exit List 
NIB -- Node Initiation Block 
RPL -- Request Parameter List 

MACROS 
GENCB MODCB SHOWCB TESTCB 
SEND RECEIVE CHECK 


SESSIONC RESETSR 


OPEN CLOSE OPNDST CSLDST 


SETLOGON SIMLOGON INQUIRE 


OPNSEC REQSESS TERMSESS 


SENDCMD = RCVCMD 


7.8 VTAM Interface: Structure and Processing aa 


ENTRY 


PMISTUP 


STUOVLY 


(VTCNSSTART ) 


STARTUP 


VTSTART 


INITIALIZE 
VCT 


YES 


OPEN ACB 
ACQUIRE 
LU'S 


DISPATCH 
RECEIVE 
THREADS 
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CLOSEDOWN 


4 


CLOSDWN3 VICN VTLUCMD oPLU 


OR EACH 
LOGICAL 
UNIT IN 
SESSION) 
ee eee ras ee CLOSE 
ACB 
om vege? 
YES VTCN/SPLU OPTIONS 
NRCD SHUT D 
C EXIT») 
IMCD HALT 
(NRCD 
TIMEOUT) 
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FRONT END/BACK END COMMUNICATION 


VTRECVE 


MSGCOL 
S/S 
QUEUE 


RETRVEQ 


S/S 
CONTROLLER 


7.8 VTAM Interface: 


VTCDMn 
INTVRBOO 


Post 


| 
! 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 


Wait 
------- SCTRECB 


(more) 


Structure and Processing 
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FRONT END -- BACK END COMMUNICATION 


FESEND 


VTQUEUE 


(VTQMOD) |---------------- 


MSGCOLQ 
VISNDISP 
az: 


RETRVEQ 


VIDEQUE 


2 


(VTQMOD) 


ew @ See a @ee a eee ees wee so eo ee wees ee ell eee 


a 
_ , 
to VIAM J 
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FRONT END -- BACK END COMMUNICATION 


\ 
\ 


\ 
\ 


VTRECVE 
VTRESP 


7.8 VTAM Interface: 


(VTSNDISP) 


HD 
HD/FF 


VTSEND Definite 
Responses 


BRACKETS 
PACING 
CRT 

etc, 


Structure and Processing 
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INPUT MESSAGES 


FORMAT : 
VERB$TEXT. 4... a 
WHERE : $ = SYSTEM SEPARATOR 
@ = ETB (X‘26’) 
(inserted by VTAM Front End 
for compatability with 
existing common routines) 
VERB: 


1 to 4 characters on input 
Short verbs are padded (right) with Xs 
to 4-character length 


TRANSACTION ROUTING 
e Transaction code 
--Processing Subsystem 
--Multiregion Queue 
@ Front End Command 
@ Fast Message Switch 
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TRANSACTION PROCESSOR 
RCVVERB (INTVRBOO) 


CALLED FROM RCVINPUT ENTRY IN VTRECVE  AND/OR 
VTVERB ENTRY IN CDM (VTCDM2) 


BEGIN PAD END PAD 
VIB HDR AREA CODE TEXT AREA 
MESSAGE HEADER|CODE TEXT 
A p, YES FECMD VTLUCMD 


NO 
FAST 
YES MESSAGE 
SWITCH 
NO 
NO 
NO VERB 
FOUND ‘ 
YES 
NO SECURITY 
VIOLATION 
YES 
RETURN 
WITH VERB 
ADDRESS 
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MESSAGE HEADER CONSTRUCTION 


VIB -- VTAM Input Buffer 
VIB Header -- Information re input data, verb, LU, etc. 


not | begin 
vib hdr used pad input data 
HT eu 


l¢--- 42 bytes ----p 


MSGHDR manipulated text 


* Locked Verb 
AIDDATA Processing 
** ETB Character (X'26’) 


Dsect: VIBUFFER 


VSB -- VTAM Send Buffer (Output Message) 
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RESPONSE TIME CONSIDERATIONS 
Definite vs. Exception Responses (VTLSB SRESP=) 
Maximum Concurrent Sessions (VCT SNMAX=) 
Number of ‘RECEIVE’ Threads 
-- Responses (VCT RCVRSP=) 
-- New Input (VCT RCVNO=) 
Core Queueing vs. Disk 
Priority Queueing 
Logging -- YES/NO 
-- ASYNCH/SYNCH 
-- RESTART 
Message Length (REQUEST UNIT Sizes) 
-- VTLSB SNDBUFL= (LU-type dependent) 
-- VCT  RCANYLN= 
Core Pools Tuning--VIB, VSB, VRE’s etc. 
software Error Recovery 
--CC (NCP) 


--CPU (VTAM) 
--Intercomm 
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CPU CONSOLE AS A TERMINAL 


Intercom Communication 

Define in BTAM or VTAM Network (but not both) 
Global forcing and suppression of route codes 
Processing: VIO1MOD 


CONTROL TERMINAL 


system Control and Command Responses 
secured Information/Requests 

Error Reporting 

Either a BTAM or VTAM Terminal 


FAST MESSAGE SWITCHING 
@e fTid$Text..... a 
SCREEN MANAGEMENT 

@ Function Keys 

-- AID Processing 

-- 3270 Header Interpolation 
@ Device Timing Considerations 

-- CRT Processing 

-- RLSE Command 


Further Reference: SNA Terminal Support Guide 
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CONVERSATIONAL SUPPORT 


@e Conversational Mode 
-- LUNIT/LCOMP CONV=YES 
-- BTVERB CONV=time-out interval 


e Conversational Time-out--Error Message 
-- Subsystem delayed? 
-- Subsystem hung? 
-- Subsystem Program check? 
(SNAP processing delay) 
-- Enough time allowed? 
BTVERB CONV= 


@ RLSE Command--delayed message 


ALTERNATE BUFFER PROCESSING 


@e Alternate column/line size must be defined in 
VTAM region 


@e Sizes acquired by Intercom at LOGON-stored in LUC 


@ DVMODIFY ALTBUF=YES, BUFFRSZ=sizel,LINESZ-nn] 


3270 Write Command = EWA (X‘7E’) supported - same as BTAM 
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ALTERNATE TERMINAL 


Automatic Assignment--LUNIT/LCOMP ALT= 
Manual Assignment--SPLU ATDname/VT-id 


Not recommended for shared printers, dial-in devices 


If no alternate terminal is specified, messages are held 
until flushed or destination LU is available. 


AUTOMATIC SESSION RE-INITIATION 


OPNDST Failure 

session Lost 

SIMLOGON Failed 

Exception Response 

LUNIT ACQ=YES, UPINTV=time 
SPLU...DEACT cancels autoup processing 
Processing: VTAUTOUP 


AUTOMATIC VTAM RESTART 


If ACB Open Failed at Startup 

After VIAM Region Failure (TPEND Exit) 

After VITAM Front End Closed due to unrecoverable 
error 

VCT VTUPINV=time 

Processing: VTAUTOQUP 
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FRONT END CONTROL COMMANDS 


VTCN 

RSLU 

STLU/SPLU 

BRDN/BRUP 

VIDN/VTUP 

SECF/SECN 

WHOT/WHOU 

LOCK/UNLK 

LOKR/ULKR 

RLSE 

FLSH 

QHLD/QRLS 

SNBK/SWCH 

COPY 

LTRC 

SCTL$DSPCH$ {VCT } 
{TID=name } 
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Further Reference: 


7.9 VTAM Features 


STATISTICS 


ONLINE COMMANDS 


VIST 

TALY$SU 

TALY$SFE[ (tid) ] 
TALY$FQ/FN/FD/FU/VS/VN/VI/FI 


REPORTS 


SAM -- MESSAGES 
-- FECLS 
-- FEQTPUT 


STS -- # FE MSGS PROCESSED 
-- # FE DISK Q BLOCK WRITES 
-- current BMN number 


LOGPRINT 
LOG ANALYSIS 
-- Response Time 


-- Traffic 


system Control Commands 
Operating Reference Manual 
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USER EXITS 


GENERAL 
e COPYEXIT* -- same as for BTAM 
@ USRBTLOG* -- same as for BTAM 
@  USROTEDT -- same as for BTAM 
@ VTUSLGNX -- validate LOGON before ‘OPNDST’ 
@ VTUSVSDX -- shutdown to be processed 
@ VTUSRLRX -- RELREQ received from VTAM 


LOGICAL UNIT RELATED (VILVB for logical unit) 


e INQUEUE e LUS 

e OTQUEUE @ SIGNAL 
@ OUTSEG @ RCVEXCD 
e LOGON @ SNDABT 
@ SHUTD @ SNDEXR 
@ HALT (see LUCUR*) @ = SNDNRM 


SHARED PRINTER SUPPORT 
@ VTURLRX1* 
@ VTUROTX1* 
@ VTURSDX1* 


* Supplied on SYMREL 


Further Reference: SNA Terminal Support Guide 
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MACROS FOR USER EXIT CODING 


@ EXTERM 


e VTIDCONV 


@ VTREGUSE USING=(MSG,LUB, LUC, VCT, CSB, LSB) 


@ VIGETCB CSB/LSB=(r)[,LUC/LUB={(r) }][,VCT={(r) }1 
{YES} {YES} 


@ QCOUNT 


Further Reference: SNA Terminal Support Guide 
Basic System Macros 
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R10/RA 
R11/RB 
R12/RC 
R13/RD 
R14/RE 
R15/RF 


VTAM -- REGISTER USAGE 


USAGF 


Variable, Work 

Variable, Work 

Link, Work 

second Base 

Current Message (VIB/VSB) 
CSB, Return Addr Stack Ptr. 
Third Base (VTLUCMD) 

VCT 

Work 

VRE (RPL) 

LSB, Work 

LUC, NIB (if in LOGON Processing) 
LUB 

First Base 

save/Work Area 

Variable (Link), Work 
Variable (Address), Work 
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VTICN COMMAND 
@ SHUTD 
@ HALT 
@ HALTS$QUICK 
@ START 
--$APPLID=name 
--$PASSWD=code 
@ TRCON/TRCOF 
@  SNMAX$nnnnn 
@ CLSON/CLSOF${TRC$SNPSWTO} 
{ALL } 


(may be keyed after SHUTD/HALT) 


@ = SNPON/SNPOF 
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VCT MACRO 
ERROR PROCESSING OPTIONS 
@ TRACE=((EWTO], [ETRC] [,NTRC]) 
@e CONTROL={YES} Do not use Q option to acquire control LU 
{ASK} Issue WIOR if cannot acquire control LU 
or alternate control LU if primary not 
avdilable 


@ CLOSE=(TNOTRACE] , [NOSNAP] [, NOWTO] ) 


@ FULLSNAP={NO } 
{YES} 


e VTUPINV=autoup-interval in minutes (to 255) 
@e SHUTDTL=shutdown/halt time limit in seconds (to 32767) 


@ MXSDTHD=max shutdown/CLSDST threads (to 32/6/) 
should not be more than 200 to prevent PMINQDEQ ISK 
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8.3 


8.4 


INTERCOMM IN A MVS ENVIRONMENT 


Introduction 


Installation 


Features 


Messages, Snaps and Abends 
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8,1 Introduction 


MVS VOCABULARY 


Page 


EPS 


Page Fault 


Page Loading 


Page Fixing 
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Ss INTERCOMM AND A MVS ENVIRONMENT 
e MVS/370, MVS/XA, MVS/ESA 

e Page Faults 

e Nature of On-Line Programs 
e Linkedit Ordering 


e Subsystem Page Modularity 


Cc Further Reference: Operating Reference Manual 
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MVS/XA OPERATING SYSTEM 


x Tended WA /SWA s ) a/LsFh 
Extended Extended user region 
Private 


aNCeC 7 
Extended ended Pl PA/ELPA/MLPA 
Common xtended SQA 


Common P| PA/EL PA/ML PA 
A Fad ZY 13 228 | 
OA/SWA/229/230/Z4YUZSZ/LZSH : 
Private User region 
KD 


Common PSA 6 
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INSTALLATION 


SETGLOBE: &MVS 
&XA 
&MRSVC 
&ITISVC 
&VTAM 
&VSAM 


IBM Macros:  SPLEVEL 
Assemblies: See Installation Guide 
Linkedit special Modules SWMODE 
LOADPAGE 
PMIPGLD 
Add ORDER statements 
Intercomm Restrictions: 


--do not put in Program Properties Table 
--will not execute Authorized 


Further References: Operating Reference Manual 
Installation Guide 
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MVS FEATURES OVERVIEW 


Page Preloading (MVS/370 only) 
XASWITCH Macro 


Virtual Storage Constraint Relief 
--subsystem loading above 16M line 
--subroutine loading above 16M line 
--VSAM LSR buffer pools above 16M line 

STAEEXIT -- ESTAE processing under MVS 

SPIEEXIT -- ESPIE processing under XA, ESA 

Virtual Execution Groups 

VSAM 
Standard Support in File Handler 
VSAM Recovery 
ISAM/VSAM Compatability 


SNA/VTAM 


Intercom must execute non-swappable 
--SYSEVENT issued by STARTUPS (requires MRSVC or IISVC) 


Further Reference: Operating Reference Manual 
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LOADING ABOVE 16M LINE 
Supported for: subsystems/subroutines 
if 
REENTRANT or PSUEDO-REENTRANT 


Requires: parameters passed to 24-Amode routines 
(Intercomm/User) be in 24-Amode DWS 


including constants--map name, ddname, etc. 


Unaffected by: SPALIST MAXLOAD 
remains loaded unless program check 
or time-out or LOAD command issued 


Program Linkedit: AMODE=31,RMODE=ANY 
RENT (REUS if COBOL) 
NCAL 
If BAL or PL/1--link with INTLOAD 
Linkedit: Module SWMODE 


Command: TALY$DA 


Statistics: System Tuning Statistics 
Closedown Reports 


Further Reference: Operating Reference Manual 
Programmers Guides 
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VIRTUAL EXECUTION GROUPS 


Nu © UI LL © 


etc, 


FEW PAGE FAULTS 
ORDER X(P),Y 
ORDER A(P),B,D 
ORDER E(P),F 


Implementation: SYCTTBL EXGRP=n, ECB=NQO 
SPALIST SWIN/ECB 


EXGRP subsystems are resident but processed as though 
in an OVLY group: 
--G1l messages queued for subsystems in one 
EXGRP processed until Q empty, or 
MNCL messages processed for each SS. 
--next group executes if any messages on Q, 
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CANCEL RECOMMENDATIONS 


STAEEXIT: Issues Snap ID=122 (except Operator Cancel) 
WQE Trace, Thread Dump 
Calls Multiregion Closedown (MRSTAE) 
Calls IISVC to free protected core 


USE 
PMIDEBUG (see Messages and Codes) 

REPLY 
CANCEL (user Abend Code=32) 


to Cancel Intercom when 
IMCD/NRCD ineffective 


ALLOWS 


Log Buffer Flushing DB Closedown (DBSTAE) 
Closing Files ESS Closedown (if MRSVC) 


AVOID CANCEL INTERCOMM (122/222) UNDER MVS 
(due to IBM ESTAE/SETRP restrictions) 
BECAUSE FILES NOT CLOSED (VSAM) 
LOG BUFFERS NOT FLUSHED 


8.4 Messages, Snaps and Abends 
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9,3 


9.4 


MULTIREGION INTERCOMM 


Introduction 


Installation 


Interface: Structure and Processing 


Features 
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9,1 


MULTIREGION USES 


@e Separate On-line Test from Production Region(s) 
--core integrity 


@e Separate Data Management 
--user files (file recovery) 
--Data Bases 


e Separate Logging 
--message restart 
--accounting 
--Log Analysis 


@ Independent Start-up and Close-down for 
--recovery procedures 
--subsystem testing/enhancement 
--table maintenance 


e Storage Conservation 
--Front End only in Control Region 
--Link Pack Facility 


e Subsystem Grouping by 
--file usage/Data Base access 
--Response time criteria/application group 


@e Batch/On-line Communications 


Introduction bag 


> 


aia 


MESSAGE FLOW OVERVIEW 


OS / VS 


Control Region 


Satellite Region x 
Batch Region 
Satellite Region 


Satellite Region 


INTRODUCTION 
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CONTROL REGION 


@ MessAGe TRAFFIC CONTROL 
-- REGION DESCRIPTOR TABLE ASSOCIATES SUBSYSTEMS 
WITH REGION 
-- REGION QUEUES AND SUBSYSTEM HOLD QUEUE 
-- LOCAL SUBSYSTEM QUEUES 
-- TERMINAL QUEUES 


@ CONTENTS 
-- FRONT END 
-- Back END 
-- UTILITIES 
-- SYSTEM CONTROL SUBSYSTEMS 
-- USER SUBSYSTEMS 


@ RESPONSE TIME 
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SATELLITE REGIONS 


CONTENTS 

-- Back END 

-- User SUBSYSTEMS 

-- MRS Input/OutPuT INTERFACE 
INDEPENDENT START UP/CLOSEDOWN 


INDEPENDENT LOGGING 


INDEPENDENT RESTART/RECOVERY 


INTRODUCTION 
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BATCH REGION 


A batch program can send a message to the Intercom 
Control Region: 


@e 70 request that certain online programs be quiesced 
because of batch processing (DELY Command) or to 
dynamically deallocate a file (FILE Command). 


e To notify a user subsystem that a DDQ is complete 
and can now be processed online. 


e Jo notify a user subsystem that file 
creation/update is complete and can now be 
redllocated (FILE Command) and/or to reactivate 
online programs (BEGN Command). 
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FILE AND DATABASE ACCESS 


MESSAGE CONTROL REGION 


ihe 
CHANGE/ reco 
OUTPUT ee reco 
CONTROL 


SATELLITE REGION A 


ee eee i 
| MULTIREGION a 
OUTPUT 
a APPLICATION A 
SUBSYSTEMS _| 


SATELLITE REGION B 


pe | 
— MULT IREGION es) eee 
OUTPUT APPLICATION B; |— 
| SUBSYSTEMS — 


SATELLITE REGION C 
ee _ 


APPLICATION C ao 
SUBSYSTEMS | 


DATA BASE MANAGEMENT SYSTEM REGION 


MULT IREGION 
OUTPUT 


a eee | 


FILE ACCESS 


ae 

Pl os/vs FILES 
J APPLICATION A 
Te 5 eee 


p |os/vS FILES 
APPLICATICN B 


” 


DATA BASE 
MANAGER 
INTERFACE 


+ DATA 
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e 
} 
CONTROL REGION 
$ 
' | | 


Tint 


TERMINAL ACCESS (wrTH RAP) 


— a oe oe es ne ee es es ee ee ee 


— <= cmp cee cmp ce oe ce oe eo ee oe ee es ee ee ee oe 


—_ oe ee ee eee ce ee oe ee ee es ee ee eee es a 


IN REALITY 


INTRODUCTION 


"Looks LIKE” >’ 
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MULTIREGION MESSAGE QUEUEING 


Satellite 1 


Back 


<i End Application 
SS for subsystems 


Queues Satellite 
1 


Control 
Region 


Line 
Control 


<a 


Region Region 
Communication Queues 
Management 


Message 
Manage- 
ment 


satellite 2 


Back 


= Ss for Subsystems 
Term Queues satellite 
Queues 2 
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9.1 


INTERREGION COMMUNICATION CHANNEL 


in MRMCT 
S/R MROTPUT 
SENDER C/R MRQMNGR 
POST: WAIT: 
HERE IS FOR ACKNOWLEDGEMENT 


MESSAGE 


WAIT: POST: 
FOR MESSAGE I RECEIVED AND 
PROCESSED MESSAGE 


RECEIVER | . MRINPUT 


Introduction 
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MULTIREGION INSTALLATION CHECKLIST 


GLOBALS 


SPALIST 


Assemblies 


Generation 
Macros 


Tables 


9,2 Installation 


SETGLOBE 


MRCNTL 
MRCSALN 
MRID 


INTSTS 
FECMD 
FESEND 
FEWHOI 
INTSPA 
IGCICOM 
TJKDSPOL 


REGCOM 
REGION 
SUBSYS 
MRPASWRD 
GENRDT 


MRMCT 


&MULTREG 
&MRSVC 
&IISVC 


MRLLOG 
MRAUTO 


MRINTER 
MRSTAE 
MRINPUT 
MRCSAMOD 
MRPURGE 
MRQMNGR 
MROTPUT 
MRBATCH 
MRLOGIN 
MRLOGOT 


PMIRDTOO 
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MULTIREGION INSTALLATION CHECKLIST (continued) 


Linkedit ICOMLINK MULTREG= 
Modules MRINTER 
MRINPUT 
MRSTAE 
MRPURGE 
MRCSAMOD 
MRQMNGR (CR only) 
MRCONSS (CR only) 
MRLOGIN (CR only) 
MRLOGOT (SR only) 
MROTPUT (SR only) 
MRMOD (RAP only) 
MRBATCH (BR only) 


User Exits: MRSECURL MRSECURZ MRQMONX 


Operating System Preparation: IGCICOM (MRSVC) or 
IGCICSVC (IISVC) 
MRMCT (LPA) 
PMIRDTnn (dynamic) 


Additional Preparation: DDQ environment 
Data Sets: DDQs Region Queues, Subsystem Hold Queue 


Further Reference: Multiregion Support Facility 
Dynamic Data Queuing Facility 
Operating Reference Manual 
9,2 Installation 
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GENERATE MULTIREGION COMMUNICATIONS TABLE 


MRMCT 
Prototype: 
(symbol) REGCOM RGNID={Region-id} 
{BATCH} 
Example: 
REGCOM RGNID=SATELIT1L 
REGCOM RGNID=SATELIT2 
REGCOM RGNID=BATCH 
END 
Place in: Link Pack Area (resident, Reentrant) 


(must be FLPA or MLPA with NOPROT option) 
PARM,_LKED=‘RENT’ 
DSECT: MCTDSECT 
Notes: Control Region not defined 

CONTROL may not be a region-id 

Only one Batch Region may be defined 


(RGNID=BATCH) 
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GENERATE THE REGION DESCRIPTOR TABLE (RDT) 
PMIRDTnn 


The RDT associates subsystems with regions and is 
generated using the REGION and SUBSYS macros. 


(symbol) REGION Region-Identifier 
,STOP={YES} 
{NO} 
, XSATREG={NO} 
{YES} 


LOGGING 


, LOG={NO} 
{YES} 


QUEUEING 


, COREQ={Messages-Queued-In Core} 
{4} 

, DDNAME=DDname-of-DDQ 

, BLOCKED={NO} 

{YES} 

, QSPACE={Size-of-DDQ-Extent} 
{8} 

,CSALEN={ Interregion-CSA-Buffer} 
{1024} 
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C 


GENERATE THE RDT (continued) 
(symbol) SUBSYS sch, Ssc 
SATELLITE INACTIVE 


, ALT=Alternate-Satel1lite-Region-ID 
, [FDOWN={FLUSH} 
{QUEUE} 
, QSPACE={Size-of-DDQ-Extent } 
{8} 
,S1OP={YES} 
{NO} 


RESTART 


, LOG={NO} 
{YES} 
»LSYNCH={YES} 
{NO} 
, RESTART={NO} 
{YES} 


RT 


Maximum SUBSYS macros in the RDT = 1000 


To use more: Increase values for all globals in FEMACGBL 
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EXAMPLE OF REGION DESCRIPTOR TABLE 


PMIRDTnn CSECT S) 
REGION SATELITI,... 
SUBSYS ee 
SUBSYS LBs 
REGION SATELIT2,... 
SUBSYS ZA picies 
SUBSYS J Bawah 
GENRDT (Must be Final Macro) 2 
END 


Add SUBSYS macros for Intercomm command subsystems 
No SUBSYS macros for CLOSDWN3 (J), MROTPUT (Z), 

PMIOUTPT (U,V,N), MRCONSS (K), ESS (E), or FEWHOI 
Multiple RDTs may be defined--different MRS configurations 
Each RDT--PMIRDTnn (nn must be unique) 

That used depends on CPU Console WTOR reply of ‘nn’ 
PMIRDTnn tables must be loaded to STEPLIB 


DSECT: RDTSECTS 
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C 


REGION ASSOCIATED PROCESSING 
RDT DEFINITION 


PMIRDTnn =CSECT 


REGION SRL... 
SUBSYS Ly Aavits 
SUBSYS Lj Bias 
REGION SR2... 
SUBSYS Daas 
SUBSYS Ci Basus 


MRPASWRD P=ABCD1234, R=SR1 
MRPASWRD P=WXYZ6789, R=SR2 


GENRDT (Must be Final Macro) 
END 

BIERM/LUNIT  ...,MRPASSW=ABCD1234 

DSECT: MPWDSECT 
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REGION INTERFACE PROCESSING 


Log Codes 
Control 
Region 
a Satellite 
Line Control Region 1 
F3 


Terminal Q 
F2 
FESEND 
MSGCOL 


MRINPUT 


MSGCOL 


: 
C1 Controller 
Subsystem 
Hold Q _ 

FA 
1 2 


FESEND 
MROTPUT 


9,3 Interface: Structure and Processing 293 


INTER-REGION MESSAGE SWITCHING 


APPLICATION SS SATELLITE REGION 


SET RSCH AND RSC 
FOR NEW SS CODE 


ho 


FESEND 


SETS RSCH MS6COL 

= X'00E9' 

MSGCOLG MROTPUT fg 2° ee 
yes 


FESEND ee 
Q FOR Q For SS 
TERMINAL IN CR or SR 


CONTROL REGION 
Note: JF TERMINAL LOCKED To A SR, A MESSAGE CANNOT BE QUEUED 
FOR A SUBSYSTEM IN ANOTHER SR, IT CAN ONLY BE QUEUED 


FoR A CR SUBSYSTEM. 


9.3 INTERFACE: STRUCTURE AND PROCESSING 


MULTIREGION CONTROL BLOCKS 


WD1 oF 
OS S/A 


SPA PAEX 


SPAEXT EXMRRDT XMRMCT 


RDT 


ee eee, 


MCT 
IN 
LINK 
PACK 
AREA 
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SYSTEM CONSIDERATION 


Link Pack Facility should be used 
Checkpoint file (CHEKPTFL) must be unique to each region 

@ separate Logging (and LOGDISK and RESTRTLG) required if 
any of the following used at RESTART: 

-- Message Restart 

-- File Recovery 

-- Checkpoint Restoration 
SPINOFF Snap data set (SNAPDD) must be unique 
Fast Snap Facility data set (FASTSNAP) must be unique 
Back-out-on-the-Fly THREDLOG DDQ should be unique 
DYNLLIB and DYNLWORK--unique if dynamic linkedit used 
DDQs for Multiregion queues in CR should not be shared 
Intercomm System commands requiring subsystem 
processing--Control Region Only--unless RAP used, or 
verb-replacement router subsystem coded for Satellite 
Region: 
-- STRT/STOP 
-- TALY (TALY$FE cannot be used in a Sk) 
-- FILE, FHST (STATFILE must be unique) 
-- LOAD, SCTL 
-- LMAP/MMUC (CINTSTORn for maps should be unique) 
-- FTUN/SSUP (requires MMU) 
-- MNCL/BEGN/DELY/SPAC/PRTY/TCTV/SSFL 
-- PAGE/SAVE (data sets must be unique) 
8 VRBOOO and RCTOOO files may be shared or unique 
@ subsystem Disk Q data sets must be unique 
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APPLICATION PROGRAMMING CONSIDERATIONS 
Application Programs run unmodified, 


Without RAP: 


With RAP: 


Recommendations: 


the following must be unique across all 
Regions: --VERBS (transaction codes) 
--Subsystem Codes 
-- the following must be unique within a 
region only: Subsystem Codes 
-- Each verb only one entry in 
BTVRBTB--processed in region to which 
terminal locked if SS code defined for 
that region, else in Control Region 
-- Unlocked terminal--Control Region only 
Output Utility processing should be in CR 
only--reduces contention for RCTOOO 
file, and increases response time. J 
If EDIT=BQ, editing done in CR (add macros 
to CR PMIVERBS). If EDIT=YES, editing 
in processing region--specify in local 
PMIVERBS, 
NRCD/IMCD subsystem defined in CR and each 
SR SCT (Code=J), but not in RDT, 
MROTPUT subsystem defined in each Satellite 
Region SCT only (Code=Z), not in RDT. 
(No associated verb) 
DDQs may be used across Regions as long as 
Keys are unique. 
Store/Fetch files must be unique to each = 
region. Also MMU maps file if LMAP used, 
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MULTIREGION CONTROL COMMAND--COMM 


C | coma oprionruncrow 
‘pow == aReD lt or selected Regions, 
“om «aM oll or selected Regions. = 
ere | Flush Subsystem Hold ond Region 


Queues for all or selected Regions 
or subsystems, 
STOP Stop input to all or selected 
Regions or subsystems, 
w START Allow input to all or selected 
Regions or subsystems. 


STATUS$ALL Display processing status of all regions 
staussss | Display specitied subsystem status. 
srarusses = Display $$ status within Region, 
“sravussrE | Display status of terminals locked to 


all or selected Regions. 
Cc SEND Broadcast message to all terminals 
locked to specified region. 
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MULTIREGION CONTROL COMMANDS (continued) 


symbol SYCTTBL SUBC=K,SBSP=MRCONSS, LANG=NBAL,MNCL=L, 


RESTART=NO, (recommended) 
---- OTHER PARAMETERS AS REQUIRED 
FOR COMPLETE DEFINITION 


symbol BIVERB VERB=COMM,SSC=K, 


SECUR=YES (recommended) 


INCLUDE MRCONSS 
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REGION ASSOCIATED PROCESSING (RAP) 

@ Provides Automatic Terminal Lock to Satellite Region 
(terminal may also be locked to a specific subsystem 
within that region via verb locking) 

e Provides Region-associated Security 

a Obviates unique Verb/SS/Region association 

® subsystem codes only unique within Region’s SCT 


@ Guarantees Region-associated File/Data Base access 


@ Provides charge back accounting within subsystem 


® Allows Test Region for Production Subsystem enhancements 


@ Allows Test Region for Replacement Subsystems (e.g., 
converting from Edit/Output to MMU) 


@ Allow Intercomm Command Subsystem processing 
duplication (e.g., LOAD, FHST, GPSS, Fine Tuner) 
Note: Message Switching to a Subsystem in another 


Satellite Region not allowed, 
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RAP CONTROL COMMANDS 


LOKR$password [$(tid, Cids4él) 
ULKR$password [s(tid, tid, ee) 


If unlocked--only access Control Region Subsystems 
when MRPASSW defined for terminal 


Refer also: Message Collection 


Implementation: BTVERB VERB=LOKRI,SECUR=YES] 
BTVERB VERB=ULKRI,SECUR=YES] 
BTERM/LUNIT MRPASSW=region-id 
INCLUDE MRMOD in Control Region only 


User Exit: USRQMONX cdlled by MRQMNGR 
use to determine receiving region when 
RAP not used/not in effect 
(sample provided) 


NOTE: Multiregion Control Commands for one or more SS 


codes require P=password specification as 
second parameter. 
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LINK PACK FACILITY 


Introduction 


Installation 


Interface: Structure and Processing 


Features 
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LINK PACK FACILITY 


@ =SHARE COMMON INTERCOMM ROUTINES 


@ = SHARE COMMON USER ROUTINES 


-- By Production/Test/Batch Regions 
(Single Region Intercomm) 

-- By Control/Satellite/Batch Regions 
(Multiregion Intercomm) 


@e Reduces Page Faults under MVS 


@ Reduces Ordering under MVS 


Advantages: reduce core required by region. 
reduce number of linkedits after applying SMs. 
Experimental SMs for Link Pack modules--only 
one link, 


Disadvantages: All regions executing Intercomm modules 
Should be at same SM level and use same 
features (Global Settings). 

User Routines must be reentrant. 


Further Reference: Operating Reference Manual 
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LINK PACK 


MVS Nucleus 


Control 


STARTUPS = | STARTUPS STARTUPS 


A OO AS A AS CN NN SS NE GE MAES SS SS EE NFS ET NE RN a Ce a See eS ee ee ees = er ee ee 
STS FO A Sa CS ES A EES EG vce TEST eS LS LS SS TS SE SI Se PD a on A a Ee oe eS ee le a aes ee ee 


MRMCT LINK PACK AREA 
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User 


Batch 
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INSTALLATION PROCEDURE 


1. Prepare the Operating System 


2. Prepare the Link Pack Area (LPM), 
Create and Link the Intercomm Link Pack Module (LPSPA). 


LPENTRY 

User Routines 
LPENTRY 
LPSPA Intercomm Routines 
END 


Link resultant module with Intercomm/User LP modules. 
All modules must be pre-linked as RENT, 


3, Prepare the Intercomm Region (IR), 
Create and Link the Link Pack Interface Module (LPINTFC)., 


LPINTFC Intercomm Routines 
LPVCON 
User Routines (same order as LPENTRYS) 
LPVCON 
END 


4, Re-link Intercomm (CONTROL/SATELLITE/BATCH/TEST) 


INCLUDE LPSTART,LPINTFC All Regions 
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C LINK PACK FACILITY COMPONENTS AND PROCESSING 


RESIDENCY 
LPSTART AT STARTUP, INITIALIZES IRs 
SPALIST VCONS WITH REAL 
(in LINK PACK) ADDRESSES. 


LP INTFC THERE IS A PSEUDO ENTRY IRS 

POINT FOR EACH LINK PACK- 
ELIGIBLE MODULE IN 
LPINTFC, AT EXECUTION 
TIME, LPINTFC RESOLVES THE 
REFERENCE TO THE PSEUDO 
ENTRY POINT INTO THE REAL 

ad LOCATION IN THE LINK PACK, 
THE LPINTFC MACRO GENERATES 
PSEUDO ENTRY POINTS FOR 
INTERCOMM LINK PACK MODULES; 
THE LPVCON MACRO GENERATES 
PSEUDO ENTRY POINTS FOR USER 
LINK PACK MODULES, 


LPSPA CONTAINS INTERCOMM AND USER LINK PACK 
LINK PACK ROUTINES. THE 
LPSPA MACRO IS FOR INTERCOMM 
ROUTINES, THE LPENTRY MACRO IS 
FOR USER ROUTINES. 


Cc 
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LINK PACK FACILITY COMPONENTS AND PROCESSING (conTINUED) 


MULTISPA 


10,5 


AT STARTUP, PLACES 


ACSPA) IN FIRST WORD 
oF OS Save AREA 
(DONE BY STARTUP3 In IR) 


INTERFACE: 


STRUCTURE AND PROCESSING 


RESIDENCY 


BR ONLY 
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J 


LINK PACK LOAD MODULE 


SYS1,PARMLIB(TEAIGGnn) LPSPA CSECT 


POINTER-1 


POINTER-2 
POINTER-3 


S 


POINTER-n 
LP-MODULE-1 


LP-MODULE-2 


LP-MODULE-3 


“ IF THIS DATA seT 


IS NOT S¥S. LINKLIB,\ 
IT MUST BE LISTED \ 
IN LNKLSTOO 


LP-MODULE-n 


% 
™ 
a 
™~ 
~ 
™~ 
~ 
™~ 
~~ 
~ 
|~<————_ LINK PACK LOAD MODULES —>|«——_LIsT—___» 


Pad 


UnpeR MVS: Link LPSPA to SYS1,LPALIB 
IPL witH CLPA opTIoN 
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MSGCOL 
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LINK PACK INTERFACE MODULE (IR) 


FQU  * , 

ENTRY MSGCOL 
USING MSGCOL,15 
L 15,=V( SPA) 
USING SPALIST,15 
E 15. SPAPMCR 
BR 5 


PSEUDO-ENTRY-POINT-1 


PSEUDO-ENTRY-POINT-2 
PSEUDO-ENTRY-POINT-3 


PSEUDO-ENTRY-POTT-n 


PSEUDO ENTRY POINT 


PoINT To PsEuDo ENTRY PoINT 
VCON oF SPA or SPA EXTENSION 
15 POINTS TO THAT NOW, 

GET ACTUAL ENTRY POINT: 
BRANCH TO IT. 


INTERFACE: STRUCTURE AND PROCESSING 
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IR/LPM INTERFACE OVERVIEW 


—- = a o@ om ow om a om = aw ow o— ef ew om fee ew ewes ew ewe ew ew es es es ewe es Ew ewe Pe ee ee eee eee es See ee ee ee 


TCB For CR TCB For SR TCB For BR 
SPA AD SPA AD SPA AD 


CONTROL SATELLITE 

LPSTART LPSTART 
front Evo | |\ | Back Eno |] (| onuittsen 
a? SPA ~— LpstarT 2 


SPA 
SUBSYSTEM 
CALL MAPOUTI] | | 3 / Frrotctcccccccco 
SUBSYSTEM : 
| Sa ee 


LPINTFC INTERCOMM/~ 


MODS=(MMU, USER 
LPINTFC veut) MonULES 
MODS=(MMU- les | | OU}tt!!!!!!]!!]!]!U!U!U!U!UUND UY ND FERRER ; ame 
woe LPINTFC 
MODS=CSFETCH, 
ae) 
BACK 
END 
RMCT 
LINK PACK AREA 
LPM 
MAP IN MAPOUT INTSTORE 


pSUBLINK SUBLINK SUBLINK 
(GETSPA) (GETSPA) (GETSPA) 
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USER INTERFACE PROCESSING 


INTERCOMM REGION MODULES: 


COBOL, PL/1 SUBSYSTEMS: 
-- Standard Processing 
(link pack interface is transparent) 


BAL SUBSYSTEM/SUBROUT INE 

-- Called LPM routines (system and user-coded) are 
accessed using standard form: 
CALE, MAPIN,  Cosd eas ), VL, MF=(E, listaddr) 
(LPINTFC will resolve LPM address and transfer 
CALL to LPM routine) 

-- Macro-requested routine (in LPM) -- 
address may be preloaded from: 

SPA SPAEXT USERSPA 

-- Called user-coded subroutines in LPM-- 

must be defined in LPINTFC via LPVCON 


Further Reference: Operating Reference Manual 
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USER INTERFACE PROCESSING (continued) 


LINK PACK MODULES: 
@ REENTRANT BAL SUBSYSTEM or SUBROUTINE: 
-- Subsystem: Use LINKAGE macro -- TEST=NQ,SPA=(1r) 
do not code DSECT=PRM 
-- Subroutines: Use SUBLINK macro -- SPA=(r) 
-- Use RTNLINK macro -- SPA address acquired via 
GETSPA macro 

-- Save SPA address in dynamic working storage or 
use GETSPA macro to reacquire SPA address 
Use SPA=(r) when appropriate on Intercomm macros 
Use LINK=(r) when appropriate on Intercomm macros 
-- Load addresses in R15 of all Intercomm routines 
From SPA or SPAEXT, use CALL (15),parameters 
Do not CALL any (sub)routines not addressable 
Via SPA, SPAEXT, USERSPA or local linkedit (LPM) 
-- Dynamically loaded subroutines may not be used. 


BATCH PROCESSING: 
@ Link with MULTISPA, LPSTART, LPINTFC 
@ Needs user-interface program to call 
MULTISPA, LPSTART, batch program 


Further Reference: Operating Reference Manual 
Basic System Macros 
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SECURTTY/PRIVACY 


Introduction 


Basic Security 


Extended Security System (ESS) 
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SECURIT TY/PRIVACY 


@ Common SENSE PROCEDURES 


@ PHYSICAL SECURITY 


@ SOFTWARE SECURITY 


LIMITING ACCESS TO SYSTEM RESOURCES 
AUDITING USE OF SYSTEM RESOURCES 
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C 


ll. 


LIMITING ACCESS TO SYSTEM RESOURCES 


CONTROL TERMINAL 
MULTIREGION--GENERAL 
MUL TIREGION-RAP 
FARS 
BASIC SECURITY (STATIC) 
OPERATOR 
TERMINAL (STATION) 
VERB 
SUBSYSTEM 
USER Ex1TS (SIGN-ON, SIGN-OFF, SUBSYSTEM) 
EXTENDED SECURITY SYSTEM (DYNAMIC) 
OPERATOR 
TERMINAL 
VERB 
REGION 
SUBSYSTEM 
FILES 
USER FUNCTIONS 
TIME 
NUMBER OF SIGNONS 
PASSWORD 
USER EXITS/FACILITIES 


INTRODUCTION 
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Globals None 


SPALIST 


Definition Macro: 


Generation Macros: 


Linkedit 


Data Set: 


User Exits: 


11,2 Basic Security 


BASIC SECURITY 
Installation Checklist 


SGNTIME 
SONOFF 


SYCTTBL 


STATION 


GENSEC 


SECVERBS 


ICOMLINK 
Modules 


Tables 


SECOQ0 


USRSGNON 


TRANSEC 
USERSEC 


SECU 
SOSQ 


UNIVER 


VERBS 
CONTIN 


SECUR=YES 
PMIAUTOF 
PMIHEADR 
PMISIGN 
PMISTATB 
Disk 


USRSGNOF 


TISE 


AUTOFF 
MAXSIGN 
OPER 
RBN 
TIME 


SECUREOO 
SECUREOL 
SECUREO2 


SECURITY 
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CONSIDERATIONS AND CONTROL 


C SIGN-ON/SIGN-OFF 
e Optional from terminal to terminal 
e Specify via list of Operator-ids 
(MAX=50 per terminal) 
Operator must sign-on to terminal if list defined 
Operator only sign on to one terminal at a time 
Only one operator may be signed on at a terminal 
Automatic sign-off may be specified from terminal 
to terminal--time-limit (in minutes) : 
--global--via SPALIST--SGNTIME 
--local--via STATION--TIME 
Maximum number of sign-on attempts 
Operator-id lists may be: 
v. --core-resident (GENSEC OPER=CORE) 
--disk-resident on SECO00 (OPER=DISK) 
e Global control at start-up--SPALIST SONOFF parameter 


Operator Commands: SIGNSONSoperator-id 
SIGNSOFF 


System Control Commands: ASGN/DSGN (global control) 


Code: BIVERBs for ASGN/DSGN 
SYCTTBL for PMISIGN 


Table: PMISTATB Dsect: STALIST 
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CONSIDERATIONS AND CONTROL (continued) 


TRANSACTION 
e Optional from terminal to terminal 
e Specify via list of transation codes (VERBS=) 
@ Independent of sign-on/sign-off 
e Limits verbs that may be entered at terminal 
(MAX=51 per terminal) 


@e All possible verbs for all possible terminals must be 


specified via SECVERBS 
(those not specified available to all) 
@e Global control at start-up--SPALIST TRANSEC 


system Control Commands: AVRB/DVRB (global control) 
SWOF/SWON (specific control) 


Code: BTVERBs for AVRB/DVRB, SWOF/SWON 
SYCTTBL for PMISIGN or at least one SYCTTBL in the 
region must have TISE=YES 


Tables generated internally: 


PMISECTB Dsect: SECTB 
SECURVRB (list of secured verbs) 
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CONSIDERATIONS AND CONTROL (continued) 


USER EXIT CONTROL 


e Global for Sign-on/Sign-off via USRSGNON, USRSGNOF 


use for statistics gathering (ON/OFF) 
use for additional checks (ON) 


e Specific for Transaction via SYCTTBL SECU=n 


use in-addition-to/instead-of Intercomm sign-on 
and/or transaction security 

SECU provides index to SECURITY table list of 
user routine VCONs 

called by SS Controller before message passed to 
subsystem 

return code indicates message processing or 
cancellation 

Global Control vida SPALIST USERSEC parameter 
SECURITY table must be coded 

may be coded for Control and/or Satellite Region 
subsystems 


Table: SECURITY 


Further Reference: Operating Reference Manual 


Basic System Macros 
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GENERATE THE STATION/SECURITY TABLES 


PMISTATB 

GENSEC (required) 

SECVERBS VERBS= (optional) 

SECVERBS VERBS= 

STATION TERM=qaann, OPER= 
VERBS= 
CONTIN= 

STATION TERM= 

STATION TERM= 

PMISTOP 

DVMODIFY (if needed) 

DVMODIFY 

END 


Note: VERBS (SECVERBS) should be coded in multiples 
of eight. Round out with dumny verbs. 


2 CSECTS generated via STATION: PMISECTB, PMISTATB 
1 CSECT generated via SECVERBS: SECURVRB 
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EXTENDED SECURITY SYSTEM 


e Dynamically created 


e Dynamically maintainable 


@e Comprehensive access control 


e Highly secure itself 


e Compatible with MRS philosophy 
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ESS TERMINOLOGY 


e Security Tree 
-- Global Managers 
-- Group Managers 
-- End Users 
@ Security Resources 
-- Operator IDs (passwords) 
-- Regions 
-- Verbs 
-- Subsystems 
-- Files 
-- Terminals 
-- User Functions 
e Security Attributes 
-- Commands Allowed 
-- Time: Time of Day 
Expiration Date 
Idle Timeout Interval 
e Default Attribute List 
Command Language 
User Exits: Statistics 
Additional Validation/Cleanup 
Interface to RACF, ACF/2, etc. 
Audit Trail 
Exempt Terminal List (printers, control terminal) 


11.3 Extended Security System 
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ESS COMMAND OPTIONS 
C Base Command-SECu: 
@ ADD/DELETE 
@ ATTACH/DETACH* 
@ DISPLAY* 


@ EDITNEWS 


@ EXCLUDE/INCLUDE 


| @ FORCE” 
e@ MODIFY* 
@ SEND 


@ SIGNON/SIGNOFF 


* Group-name or generic-user-id may be used for global 
processing/display of multiple accounts 


11.3 Extended Security System 


ACCOUNT 


ADD 


ATD(nnn) 


ATTACH 


CONTROL 


DELETE 


DETACH 


DISPLAY 


EDITNEWS 


EXEMPT 


EXPDT (yyddd) 


FILES 


FORCE 


ESS ATTRIBUTES 


FUNC-INV 


FUNCTION 


GLOBAL 


GROUP (group-name) 


INHIBMSG 


INTVLChhmm) 


LOCK(verb) 


MANAGER 


MAXUSERS 


MODIFY 


NOPSWD 


PASSWORD 


PSWDEXP (nnn) 


QUETO(Chhcc) 


11.3 Extended Security System 


REGIONS 


REGN-INV 


SEENEWS 


SEND 


SIGNON 


START Chhmm) 


STOP CAAmm) 


SUBSYS 


S/S-INV 


TERM-INV 


TERMS 


USERS 


VERB-INV 


VERBS 
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ESS USER CODED INTERFACES 


e User Exit--USRSECOO 
-- Receives control whenever any ESS log 
record is created (audit trail) 


@e User Exit--USRPRMPT 
-- Suppress sign-on message at startup 


@e User Exit--SECUEXIT (sample provided) 

-- Receives control when a user account is added 
or deleted, at sign-on and sign-off, and when 
an ESS session times out 

-- Could be used to enforce standardized user-ids, 
prevent unauthorized deletion 

-- Cleanup processing at sign-off, time-out 

-- Generate internal SPLU if sign-on id=LOGOFF 


@e Subroutine--SECUSER (code supplied) 
-- Invoked by subsystems 
-- Returns active user-id 


@e SECTEST Macro 
-- Tests authority of current user to use a 
logical user function 


@ VTAM HALT Exit--LUCUR (sample provided) 
-- Sign off user when LU session disconnected 
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ESS INSTALLATION PROCEDURE 


le Install Intercom Multiregion SVC (MRSVC) or 
Integrity SVC (IISVC) 


2. Establish SECURITY Data Set (SECFILE Utility) 

BY Prepare Link Pack (SECVECT generated by SVECT macro) 
4, Define BIVERB for SECU, SYCTTBL for $$$$SECU 

5 Intercomm Assemblies, Linkedit 

6, Use Command Language to Establish and Maintain the 


Security Environemnt 


Modules: INTSECOO (CR and all SRs) 
INTVRBOO (CR only) 
INTSECO2 (CR only - loaded at ESS startup) 
RPTOOO49 (CR only) 
$$$$SECU (CR only - dummy ESS subsystem) 
SECFILE (utility-init/expand SECURITY data set) 
SECUPRNT (Batch SECURITY file print program) 


Further Reference: Extended Security System 
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12 


12.1 


12.2 


12.3 


12,4 


DATABASE INTERFACES 


Introduction 


DBMS Support-- General Requirements 


Installation 


Interface Routines 
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INTERCOMM SUPPORTED DATABASE MANAGEMENT SYSTEMS 


Adabas software AG of North America, Inc 


IDMS Computer Associates 


DL/I (IMS DB) |} IBM Corporation 


Model 204 Computer Corporation of America 


System 2000 MRI Systems Corporation 


TOTAL Cincom Systems, Inc. 


Others through Generalized Database Interface (GDB) 
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MODES OF SUPPORT 


@e Customized DBMS Interface (DL/I, TOTAL) 


TCOM- 


supplied 


@e DBMS Interface using GDB (MODEL 204) 


ICOM and/or 


e User-supplied support for "foreign" DBMS, (i.e, 
user-coded exits in GDB). 


Further Reference: Data Base Management System Users Guide 
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é 


lyre 


INTERCOMM/DBMS MULTIREGION ENVIRONMENT 


OS/VS NUCLEUS 


Ce i ee ee —_ a ee ee eee oe — << oe oo eee ee ee ee 


DBMS 1 

INTERFACE 

VIA 

ATTACHED 

SUBTASK 
DB REGION 
DBMS 2 

BATCH 

APPLICATION 

MRMCT 

LINK PACK AREA 
INTERCOMM LPM 
INTRODUCTION 
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EXECUTION PROCEDURES 


INTERCOMM COLD START -- 
DBMS AcTIVE -- 
DBMS INACTIVE -- 


INTERCOMM WARM START -- 


COORDINATED RESTART -- 
INTERCOMM ABENDED 


NORMAL INITIALIZATION 


QuresceE DBMS SUBSYSTEM AND ALLOW OTHER 


SUBSYSTEMS TO EXECUTE, OR 
ABEND INTERCOMM. OR 
RETRY DBMS STARTUP 


AS ABOVE 


-- TERMINATE ACTIVE DBMS BATCH voBS 
ExecuTE DBMS BackouT PROCEDURES 
RESTART INTERCOMM 
RESTART BATCH JOBS 


DATABASE ABENDED -- TERMINATE [NTERCOMM 


TERMINATE DBMS BATCH JOBS 
ExecuTeE DBMS BackouT PROCEDURES 
RESTART DBMS 

RESTART INTERCOMM 

RESTART BATCH JOBS 


12,2. DBMS Support -- GENERAL REQUIREMENTS 
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SUBSYSTEM DESIGN CONSIDERATIONS 


e DBM I/0 
Usually takes longer than standard OS/VS I/O, 


@e Coordinated Checkpointing (optional) 
No one program should do excessive I/0--it will 
delay checkpointing. 


@ Minimizing DB contention 
Use RESOURCE macro, OVERLAY or EXECUTION Groups. 


Some recommended techniques-- 


e Perform updates last 
Speeds checkpointing 
speeds Restart/Recovery 


e Set Subsystem Controller return code to indicate 
R/R requirements (optional) 
-- 64 (X‘’40’)--Never Restart Message 
-- 68 (X‘44’)--Restart Message if processed 
Since last checkpoint 
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INSTALLATION CHECKLIST 


DBMS Support--General Requirements 


Globals &TOTDESC, etc. TOTAL 
SPALIST CHKPTLIM 
TCHP 
GENSW 
SYCTTBL DBASE={DB } 
{UDB} 

Assemblies INTSPA INTSCT 
ICOMLINK DBLIBR= CHKRES= 
DBASE= 
Linkedit DBCHKDSP LOGPROC 
GDBSTUP CHECKPT3 
DBRSTRT CHCKPTSS 
AUTORCVR RESTORES 


User/Vendor modules 


Datasets CHEKPTFL 
(GDBWKFL) 
SYS1,SVCLIB Interface SVC 


12,5 Installation 


INTERCOMM ROUTINES 
GDBSTUP 
DBCHKDSP 


CHECKPT3 
RESTORES 
CHCKPTSS 
DBRSTRT 
LOGPROC 
AUTORCVR 


DB EXITS 
DBSTART 


DBCLOSE 


DBINT 


DBRELEX 
DBPURGE 


DBSTAE 


DBCKPREP 
DBCHKCOM 


SUPPORT MODULES 
Initialization and Continuation of 
Interregion Checkpoint 
Checkpoint Processing 
Checkpoint Restart 


Quiesce of Subsystem Database Activity 


Message Restart Processing 


Database Initialization at Startup 


Database Termination at Closedown 


Database Request Processing 


Subsystem DBMS Resource Purging (SYCT400) 
(RMPURGE) 


ABEND Processing 


Database Checkpoint Processing 


12.4 Interface Routines 


13. ERROR SITUATIONS: Logging, Checkpointing 
and Restart/Recovery 


13.1 Introduction 


13.2 Logging 


13.3 Message Restart 


13.4 Checkpointing 


13,5 File Recovery 


13.6 Control Commands 
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Hardware: 


software: 


13.1 Introduction 


ERROR SITUATIONS 


Central Processor 


Main Storage 


Communications Network 


Peripheral Devices 


Operating System 


Access Methods 


Data Base Software 


Intercomm Nucleus 


Intercomm/User Subsystems 
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INTERCOMM ERROR DETECTION/RECOVERY 


Network Failures 


Device Failures 
(Access Methods) 


DBMS Failure 


Intercomm nucleus 
Program ISK 


subsystems 
Program check 
Program loop 
Core clobber 


Failure to 


release resources 


Time out-TCTV 
-Enqueue 


13.1 Introduction 


Detection 


RR CRT CRON 
ee ee Se Se Le Se Se Se Se Sa ae Se ce! ae Se 


Error Retry 


Error Retry 


Notify DB Region 
& Control Operator 


ESTAE Exit 
ESPIE/SPIE Exit 


ESPIE/SPIE Exit 
IJKTLOOP 
RMINTEG/TRAP 
DWSCHK (ISK) 


RM Audit & 
Purge 


SYCT4O0 
PMINQDEQ 


Recovery 


ae ee ae Seer 


Put down LU, 


- terminal/line 


Error return 
codes 


Quiesce online 
Subsystems 


SNAP 122 
SNAP 126 


SNAP 126 
SNAP 121 
ABEND 1114/1369 
SNAP 126 


Thread Dump 
WQE Trace 


SNAP 118 
SNAP 114 
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DESIGNING FOR RESTART/RECOVERY 


What is important? 


e Continuous performance 
Subsystem control/quiesce 


@ Prevention of long periods of down time 
Checkpoint restarting 


e Database integrity 
Database backout/restoration 


e@ OSS File Integrity 
On-line record recovery 
File record restoration at restart 
Batch recovery/update from backup file 


@e Recovering messages in progress 
Message restart 


@ Prevention of terminal operator idle time 
Network control/quiesce 


Note: All restart/recovery options incur overhead, but are 
tuneable. 
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INTERCOMM RESTART/RECOVERY PROVISIONS 


INTERCOMM LOG 


MESSAGE RESTART 


CHECKPOINT RESTART 


FILE RECOVERY 


DATA BASE RECOVERY 


CONTROL COMMANDS 


Further Reference: Operating Reference Manual 
File Recovery Users Guide 
system Control Commands 
Data Base Management System Users Guide 
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MODES OF SYSTEM INITIALIZATION 


e Cold Start - no message/checkpoint restart 
no file/Data Base recovery 
--Parm=STARTUP 


@e Warm Start - restart/recovery optional 
--Parm=RESTART 
--Parm=RESTRNL 


RESTRNL - Restart without previous log: 


--dllows preserving semi-permanent DDQs 

--dllows preserving semi-permanent S/F 
Strings 

--no message/checkpoint restart 

--no file recovery 


RESTART - If previous log available, and Restart 
modules included: 


--dllows full message restart 
--Gllows checkpoint restart 
--dllows file recovery 
--dllows Data Base recovery 
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LOGGING OVERVIEW 


Purpose-- 
e Restart/Recovery 
e Performance Statistics 
e Charge-back Accounting 
e Debugging 


Log Residency-- 


e Tape 


@e Disk 


Writing log records-- 


e Synchronous 


e Asynchronous 


Further Reference: Operating Reference Manual 


13.2 Logging 
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LOGGING OVERVIEW -- LOG ENTRIES 


Message Processing Entries- 

Fl: Message received (optional) 
C1: Message Qd for SR 
C2: Message passed to SR 
C3: Message for SR lost or flushed 
Ql: Message Qd on SS Q 
30: Message passed to SS 
FA: Message completed by SS 

FB-FE: Cancelled SS message 
F2: Message Qd on TQ 
F3: Message transmitted 

F5-F8: VTAM DDQ output message status 


File Recovery Entries- 80-8E: Before Images 
90-9E: After Images 


User Entries- 41-6F: User-specified Text 
Checkpoint/Restart Entries- 
8F: File Recovery checkpoint record 
00: Checkpoint record 
FF: Message Accounting record 
ESS Entry- C9: Signon/off processing (audit trail) 


MRS Entry- CO: Satellite Region started 
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LOGGING OPTIONS WITH MRS 


e Single Log 


@e Separate Log per Region 


LOGGING OPTIONS WITHIN A REGION 


@ Front End - by Terminal 


e Back End - by Subsystem 


@e Within Subsystem - by User log codes 


e File - for restart/recovery 


e Checkpointing (checkpoint time) 


LOG UTILITIES 


@ LOGPRINT 
@ LOGANAL 
@ LOGMERGE 


13.2 Logging eae 


LOGGING 
Installation Checklist 


FAR options B37 WRITEOVER 
SPALIST GPSSEC LGBLK 
MRLLOG LGNUM 
Definition Macros BTERM/LUNIT LOG= 
LSYNCH= 
SYCTTBL LOG= 
LSYNCH= 
REGION LOG= 
SUBSYS LOG= 
LSYNCH= 
IFDOWN= 
STOP= 
Assemblies INTSPA INTSCT 
PMIRDTOO Network Table 
Linkedit LOGPUT IXFB37 
Automatic MSGAC IXFFAR 
Data Set INTERLOG Tape 
(RECFM=VB) Disk 


Dsect: MSGHDRC 
User Exits: USERLOGE USERB37E 
13.2 Logging 
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LOGGING BUFFERS CALCULATIONS 


Number (LGNUM) and Average Size (LGBLK) depend on: 

e Log Writing Type 
--Synchronous 
--Asynchronous 

e Average Output Message Size 

e If File Recovery Log Entries created 
--at least half the size of maximum 

record plus message header 

--depends on frequency and total volume 


If mostly Synchronous: 
--Use average message size for buffer size 
--Or use average record size if also file recovery 
entries created (whichever is larger) 
--Use more buffers 


If mostly Asynchronous: 
--Use larger buffer size to accomodate several 
average size messages or larger file recovery records 
--Use fewer buffers 


see also System Tuning Statistics Printout: 
Logging and Buffer-wait Statistics 


Note: SPALIST SEXLGBUF is address of log buffers 
INTERLOG DCB=LRECL=naximum-log-buffer-size-required 
NCP=same as LGNUM 
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LOG ENTRY SEQUENCE 


USING QUTPUT UTILITY 


USING MESSAGE MAPPING UTILITY 
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13.2 Logging 


LOGGING COUNTERS 


c Name Log Code Description 


SPAMSNM | O1,F2,C1/B.E. seq. no. (MMN) 


SPANMIP | O1 queued for Subsystems (total) 
SPANMOW | O1 queued for Overlay Subsystems 
SPANMOP | 30 passed to Overlay A Subsystems 
SPATNMP | FA total processed 
SPACANC | -- total cancelled 
SPACIOE | FD cancelled--I/0 error, Timeout, 
Program Check 

SPACISC | FB cancelled--invalid SS code 
SPACNQS | FC cancelled--no queue space 
SPAINVMG | -- rejected by restart 

we SEXLGRSB | 02,03 total restarted messages - B.E. 
SEXLGMMN | -- Starting MMN after Restart 
SEXLGRSF | F2 total restarted messages - F.E. 
SEXLOMMN | -- MSGAC completed count 
SEXBMN# | -- highest BMN received by SR 
SEXMRMSI | -- total received via MRINPUT 
SEXMRMSO | -- total transferred via MROTPUT 
SEX#SATM | C1 queued for SRs by CR 
SEX#BUFW | -- count of Buffer Waits by LOGPUT 
BIAMSEQ | O1 F.E, seq. no. (BMN) in BTSPA 
SEX#FMSG | F2 total queued for F.E. 

C statistics: SAM, STS 
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MESSAGE RESTART 


LOGGED MESSAGES ONLY (LOG=YES) 


IF REQUESTED BY: 
@ TERMINAL 
--Qutput Transmission requeued - F2 


e SUBSYSTEM (after file/checkpoint recovery) 
--Incompleted messages reprocessed - 01/30 
--Cancelled messages restarted - FB/FC/FD 
--Completed messages checked for 

Data Base/File recovery - FA 


@ MULTIREGION -- as applicable 
--Region Qs recreated - Cl 


AUTOMATED RESTART (eliminates EXEC PARM=STARTUP/RESTART) 
@ STRTUPSW Data Set (BDAM file) 
--Restart needed status 
--Restart time (TOTAL DB only) 


e Created/maintained by AUTORSET Utility 
--Dsect: STUSWRCD 


@ Updated on-line by AUTORCVR 
--Set by startup 


--Reset by closedown 
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MESSAGE RESTART 


LOG CODES 


QF -- INTERCOMM STARTED 


FF -- MESSAGE ACCOUNTING RECORD 


AO -- MESSAGE RESTART BEGUN 


F2 -- QUTPUT TRANSMISSION MESSAGES REQUEUED 


O02 -- UNCOMPLETED/CANCELLED MESSAGES RESTARTED (C’R’) 


03 -- COMPLETED MESSAGES RESTARTED (C’P’) 


Al -- MESSAGE RESTART FINISHED 


READ-BACK-POINT-IN-TIME 


based on 
LAST MESSAGE ACCOUNTING RECORD: 
HIGHEST COMPLETED MESSAGE MMN 


which is based on 
LOG/RESTART OPTIONS SPECIFIED FOR 
TERMINAL/SUBSYSTEM/REGION 
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MESSAGE ACCOUNTING RECORD 


LOGPUT CALLS MSGAC 
MESSAGE COMPLETED TRACKING 


ES A EE A CY CE SS SS KG CT PES a oS Se NCS CID CNS CTE: MTD CTP PES CERES HC AN OND 
SE SES CERNE eS MN NS SE OS A A CIS CD — AS OES LS STD AND P-L CAINE CN LR CRD ED SS CEES CAS GUL EPA GERRY GLAAD REST OCT CSTEGED MERENCE CAS NAD GENS SLI ES | 


Type Start | End According To 
Terminal F2 F3 RESTART=YES 
F2 F2 RESTART=IFPOSBL 
F2 F2 RESTART=NO 
subsystem O1 FA RESTART=YES 
01 30 RESTART=IFPOSBL 
01 01 RESTART=NO 
Multiregion | Cl C2 RESTART=YES 
(CR) Cl Cl RESTART=NO 


When a sequence of 255 messages (MMN) completed, 
SEXLOMMN reset to new completed count 
READ-BACK-POINT-IN-TIME Record Written 
by MSGAC - Log Code = X'FF’ 
Contains: MMN - highest message sequence # completed 
Next Sequential MMN assigned - every log record with 
O01 F2 Cl 
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RESTART PARAMETER 


@e BTERM/LUNIT 
@e SYCTTBL 
@ SUBSYS 


=YES (default) Requires LOG=YES 
LSYNCH=YES (if critical) 


Use only if: 
-- File Recovery critical 
-- Data Base Recovery critical 
-- Checkpointing data affected 
-- Remote CPU or tape data collection input stream 
can be resumed 
-- Qutput transmission recovery critical 


May result in no MSGAC record 
-- Particularly if no transmission recovery for 
down terminal 
-- May couse read-back of entire log 
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RESTART PARAMETER (continued) 


=IFPOSBL Requires LOG=YES 


Use if: 

-- File or Data Base Recovery needed 

-- Recently queued transmission data must be sent 
incompleted messages logged after last MSGAC record 
are restarted (if RESTART not=NO0) 

Applies only to BTERM/LUNIT and SYCTTBL macros 


Al 


— 


=NO (LOG=NO/YES) 


Use for: 

-- Inquiry subsystems 

-- When terminal is used in conversational mode 

-- When last update can be checked at terminal 
before being reentered 

-- When printer output can be recreated 

-- When all remote CPU input can be retransmitted 

-- When no checkpointing 

-- When using file recovery for reversal 
processing only 


Further Reference: Operating Reference Manual 
Basic System Macros 


SNA Terminal Support Guide 
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MESSAGE RESTART 


Installation Checklist (requires logging installation): 


Definition 
Macros 


Assemblies 


Linkedit 


Data Sets 


User Exits 


BTERM/LUNIT 
SYCTTBL 


REGION 
SUBSYS 


PMIRDTOO 
Network Table 


TCOMLINK 
Modules 
AUTORCVR 
REQONDDQ 
DBRSTRT 


RESTRILG 
LOGDISK 

INTERLOG 
STRTUPSW 


USRESTRT 
USRSEREX 


13.3 Message Restart 


RESTART= 
RESTART= 
SEGREST= 
CNVREST= 
LOG=YES 
STOP=NO 
TFDOWN=QUEUE 
RESTART= 


INTSCT 


CHKRES=YES 
LOGPROC 
READBACK 
INTDBLOK 
RESTORES 


Previous Log(s) 

Disk (work file) 

New Log 
startup/Restart status 


called by LOGPROC 
called by REQONDDQ 
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CHECKPOINT AREAS 


STATION Table (PMISTATB) 

FILE Table (PMIFILET) 

SPA (message counters, MMN) 

SCT (SS codes, message counters) 
TIME Table (PMITIMTB) 
User-specified Area 


CHECKPOINT TIME Log Record -- INTERLOG - code=X’00’ 
CHECKPOINT File -- CHEKPTFL 


@e 5 logical segments maximum--each big enough for all 
areas 


e Wraparound--when 5th segment written - 6th will 
overlay lst, 


@e Segment availability controlled by SPALIST GENSW - 
bit settings 


@e When I/0 error ina segment - bit set on 


@ When less than 2 segments - checkpointing stopped. 


Further Reference: Operating Reference Manual 
Basic System Macros 
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Installation Requirements (requires logging installation): 


SPALIST 


Definition 
Macros 


Assemblies 


Linkedit 


Reports used by 


Data Sets 


CHECKPOINTING 


GENSW 
CKPTLIM 
TCHP 


SYCTTBL 
SYCTTBL 


INTSPA 


ICOMLINK 
Modules 


Data Base 
Checkpointing 


Checkpointing 


INTERLOG 
RESTRTLG 
LOGDISK 

CHEKPTFL 


Dsects: CHKPTDST, LOGCHK 
USRCHKPT - called by CHECKPTS after 


User Exit 


writing checkpoint records 


13.4 Checkpointing 


CKUSER 
CKUSL 


for CHCKPTSS 


DBASE= (data base) 


RVFILE= 
INTSCT 


CHKRES=YES 


CHECKPT3 
AUTORCVR 
RESTORES 
DBCHKDSP 
DBRSTRT 


RPTOQQO40 


Tape/Disk 


LOGPROC 
INTDBLOK 
READBACK 
CHCKPTSS 
PURGEQ 


RPTO0044 


Previous Log(s) 
Disk (work file) 


Disk 
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cC 


SYCTTBL 


CHECKPOINTING SUBSYSTEM 


CHCKPTSS 


SBSP=CHCKPTSS 
SUBC=Q 
LANG=NBAL 
PRTY=0 

OVLY=0 
NUMCL=1 
MNCL=1 
RESTART=NO 
LSYNCH=YES 
TCTV=n 


NOTE: TCTV should be at least 300 


Dispatched on Time Interval specified with SPALIST 
TCHP parameter. 


Purpose: 


Further Reference: 


13.4 Checkpointing 


Quiesce INTERCOMM Subsystems 
for Checkpoint Recording 
if 
SYCTTBL RVFILE=YES or DBASE=UDB 


Operating Reference Manual 
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FILE RECOVERY FACILITY 


@ ON-LINE PROCESSING 


@ ON-LINE RESTART 


@ OFF-LINE RECREATE 


@ BACKOUT-ON-THE-FLY 


FILE ACTIVITY LOGGING 


INTERLOG 


LOG CODES: 80-8E - Before Images 


90-9E - After Images 


8F - File Recovery Checkpoint Record 


Supported Access Methods: ISAM, BDAM, VSAM 


Further Reference: File Recovery Users Guide 
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FILE RECOVERY - ON-LINE PROCESSING 


Installation Checklist (requires logging and checkpointing): 


Definition 
Macro: 


Assemblies 


Linkedit 


Data Sets 


FAR 
Specifications: 


SYCTTBL 


ICOMLINK 
Modules 


INTERLOG 
ICOMIN 
CHEKPTFL 


REVERSE= 


CHECKPOINT= 


DELETE= 
CHECK= 
RECREATE 


Dsect: FRDSECTS (FABSs) 


13.5 File Recovery 


RVFILE=YES 
DBASE= 


INTSCT 


FILEREC=YES 

ql! logging, etc. 
IXFFAR 

IXFLOG 

IXFCHKPT 


Tape/Disk 
FAR cards 
Disk 


applicable files 
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FILE RECOVERY - ON-LINE RESTART 


BEFORE MESSAGE RESTART 
BEFORE NEW MESSAGE INPUT 


Installation Checklist - 


Requires Logging & Checkpointing & Message Restart, and: 


Linkedit ICOMLINK 
MODULES 


Data Sets INTERLOG 
RESTRTLG 
LOGDISK 
CHEKPTFL 
FRLOG 


ICOMIN 


FILEREC=YES 

ql] previous, and 
IXFRVRSE 

IXFSNAPL (optional) 


New Log 

Previous Log(s) 

disk (work file) 

disk (previous file) 

SYSOUT (optional) 
IXFSNAPL output 

FAR cards 


File Recovery processing executes in conjunction with 


checkpointing. 
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FILE RECOVERY - OFF-LINE RECREATE 


APPLY AFTER-IMAGES OFF-LINE 


ALLOWS ON-LINE RESTART TO BE STARTUP 
BYPASSING LOG RESTART 


Linkedit IXFCREAT IXFFAR 
IXFHNDOO IXFSNAPL 
IXFHNDO1 BATCHPAK 
Data Sets: ICOMIN FAR cards 
FRLOG SYSOUT (optional) 
AFTERIM Log (with after-images) 


User data sets to be recovered 


FAR Specification: DDname,RECREATE 


Further Reference: File Recovery Users Guide 
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BACKOUT-ON-THE-FLY 


e Dynamic File Reversal-invoked if subsystem: 


-- OCx or Timeout 


-- Return Code is 912 


@ DDQ Maintained Per Thread 


e "Logging" before-images and after-images 
on THREDLOG DDQ data set 


13.5 File Recovery 
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BOF -- OVERVIEW 


BOF 
Activated 


Retrieve 
Thread 
"Log" 


Retrieve 
User 
Record 


NO 


Yes 


Before- 


image 


13.5 File Recovery 


BOF 
DDQ 


User 
File 


{Ignore} 
{ ABEND} 
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BOF IMPLEMENTATION 


@ Requires File Recovery, DDQ installation 


@ Define THREADLOG DDQ Data Set, QCF File 


@ specify BACKOUT=YES on SYCTTBL (reassemble SCTs) 


e Specify REVERSE={YES } in FARs 
{CRITICAL} 


® Linkedit - all previous modules, and 
ICOMLINK: BACKOUT=YES 


- MODULES: INTCRQ 
INTPRQ 
IXFVERF1 
TRVRSE 
NOTE: BACKOUT=YES on ICOMLINK forces FILEREC=YES 


Further Reference: File Recovery Users Guide 
Dynamic Data Queuing Facility 
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ERROR RECOVERY SYSTEM COMMANDS 


Network Control-- S) 
@ STLU/SPLU - start/stop VTAM logical unit activity 

RSLU/VTCN - resequence/change VTAM status 

STLG/SPLG - start/stop line group (DCB) 

STLN/SPLN - start/stop line activity 

TPUP/TDWN - start/stop terminal activity 

STPL/SPPL - start/stop leased line polling, VTAM input 


Data Set Control-- 
e FILE - change file status, open/close a file 


System Activity Control-- 
@ STOP/STRI - deactivate/activate system or user function 
e SCTL - core/table display, TDUMP, WQE trace 2 


Multiregion Control-- 
@e COMM,... - Satellite Region/subsystem/queue control 
@ LOKR/ULKR - lock/unlock a terminal to a region (RAP) 


Queue Control (Front End) -- 
@ QHLD/QRLS - hold/release terminal output queue 


subsystem Control/Quiesce-- 
@ MNCL/PRTY - change subsystem concurrency limit, priorty 
@ BEGN/DELY - initiate/quiesce subsystem processing 
e LOAD - load an updated/corrected subsystem/subroutine 4 
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14,4 


14,5 


ABENDS, SNAPS AND PROBLEM DETERMINATION AIDS 


INTRODUCTION 

Error conditions--recoverable and non-recoverable. 
Program checks in subsystems. Intentional program 
checks. MVS ABENDS. Abends/Snaps due to control 

terminal or CPU console operator requests. 


SYSTEM SNAPS 

subsystem Programming Problems. 
Intentional Program Checks. 

Program Looping. 

Format of SPIE dnd STAE Save areas. 
Snap 114 debugging. 

Indicative Dumps. 


SPINOFF SNAPS 


FAST SNAPS 


PROBLEM DETERMINATION AIDS 
PMISNAP Macro, 

Core Pool Integrity Checking. 
TRAP, 

DWS Integrity Checking, 
Programming Aids, 

PMIDEBUG., 

Line Trace Facility. 
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ERROR CONDITIONS--RECOVERABLE AND NON-RECOVERABLE 


e Program checks within application subsystems 


If SPIEEXIT and SPIESNAP included, Intercomm does 
not ABEND, but rather takes a SNAP 126. 


e Intentional Program Checks 


Program check is due to a logical error in an 
Intercomm or application program. The PSW points 
to an ISK in an Intercomm module. SNAP produced. 


e Unrecoverable (e.g. hardware) errors cause 
Intercomm region to ABEND, 


STAEEXIT, if included, ensures proper dataset 
Close procedures. Produces SNAP 122, 


e Unrecoverable (e.g, operating system software) 
error due to access method, GETMAIN/FREEMAIN, etc. 
problems, 


Again STAEEXIT processing ensures proper shutdown 
procedures. Produces SNAP 122, 


@e STAEEXIT CLEANUP PROCESSING COMPLETED 
message produced if log buffers flushed, 
data sets closed, etc. 
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ERROR CONDITIONS--RECOVERABLE AND NON-RECOVERABLE (continued) 


< @ Snaps/Abends/Cancellation at CPU Console/Control 
Terminal request. 


Operator issues: 

-- GPSS command - SNAP or ABND 
ABND closes associated Region only. 

If Multiregion, SNAP provides optional snap 
areas for associated Region only. 

-- IMCD or NRCD with SNAP or ABEND option 
closes control and all Satellite Regions. 
SNAP/ABEND 120 produced, 

-- ‘CONTIN’ reply to PMIDEBUG WTOR provides a 
region SNAP, no close-down and resets Dispatcher 

a Timer. SNAP ID=32 produced, 


@ System Abends due to CPU operator cancellation. 


Intercom is "hung" and will not respond to any 
closedown command attempts. To be avoided if at 
all possible. 


Further Reference: Operating Reference Manual 
Basic System Macros 
system Control Commands 
Messages and Codes 
. see also: MRS Facility - Satellite Region close-down 
C commands from Control Region 
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SUBSYSTEM PROGRAMMING PROBLEMS 


@e Intercomm assigns a SNAP-ID as documented in 


Messages and Codes, Chapter 5. 


@e Certain "famous" SNAPs are eligible for the 


INDICATIVE DUMP option, these are: 

SNAP 114--Enqueued resource time out 
--Thread Dump (if TDUMP in linkedit) 
--WQEs Trace (if IJKTRACE in linkedit) 


SNAP 118--subsystem time out (SYCTTBL-if SNAP=YES) 


Installation: 
SPALIST 


Data Set 


LINKEDIT 
Automatic 


User Exits: 


14.2 System SNAPs 


STUSPIE 


SNAPDD 


Modules 


TJKCESD 


TJKWHOIT 


SNAPEXIT 
SPSNEXIT 


--WQEs TRACE (if SNAP 118 issued) 
SNAP 126--OCx abends - Subsystem Program Checks 

--Thread Dump, WQEs TRACE 

--ICOMPOOL Dump (if POOLDUMP in link) 


INDUMP 


SYSOUT 


PMISNAP1L 
SPIEEXIT 
SPIESNAP 
STAEEXIT 
STAETASK 


called by PMISNAPL 
called by SPIESNAP 
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INTENTIONAL PROGRAM CHECKS/SNAPs 126, etc. 


@ Subsystem request is invalid (e.g., invalid 
parameter list) 
-- PSW points to ISK instruction in an Intercomm 
service routine. 
-- Module name and operands if ISK identifies the 
problem. See Messages and Codes, Chapter 4, 


e Logical error within Intercomm system modules or 
Subsystems. 
-- Snap ID or ISK identifies Intercomm system 
problem. See Messages and Codes, Chapter 5, 


PROGRAM LOOPING 


Trapped by IJKTLOOP - ABEND 909 
SNAP 121 


Recovery: STAERTRY 
Linkedit: ICOMLINK LOOPTIM=YES 
Control Command: STRI/STOP TLOOP 
Further Reference: Operating Reference Manual 
system Control Commands 


Messages and Codes 
14,2 System SNAPs 
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FORMAT OF SPIE SAVE AREA - SNAP 126 


Formatted by SPIEEXIT 
‘SPIE SAVE AREA’, 8-byte PSW, Registers 13-12 
-- Slow Snap - at beginning of Region Dump 
-- Indicative Dump - first area snapped 
-- Fast Snap - find SPIE SAVE AREA literal 


FORMAT OF STAE SAVE AREA - SNAP 122 


Formatted by STAEEXIT 
"STAE WORK AREA’ - same as OS format: 
Fullword - Abend Code: if byte 1=X’80'-dump requested 
Bits 8-19: system abend code 
Bits 20-31: user abend code 
Fullword - binary zeros or same as previous word 
2 8-byte PSWs (system, user) 
Registers 0-15 
-- Slow Snap - at beginning of Region Dump 
-- Fast Snap - 
-- look for literal, or 
-- linkedit - STAEWORK entry point, or 
-- ‘PSW AT ENTRY TO SNAP’ 
points to STAEEXIT code - find literal 
NOTE: if user abend code - translate to decimal. 
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ENQUEUE/DEQUEUE 


Time Out 
Processing -- PMINQDEQ 
SNAP -- 14 
On WQE Trace find: 
IJKREFA -- Free Queue Table (WQT) 
Last FQE -- Enqueue owner (status=62) 


Parm Field -- Address of Enqueue Element in 
first 3 bytes 


Use ELMDSECT to find: Resource ID 
Caller’s Return Address 


Find All WQEs -- same thread number 
TQEs -- check Timer/Event Queues 


Or see TDUMP - RCB for NQCOWNER) 


I/O Device -- Hung? 
Time Delay -- Too Long? 


If no WQE/TQE -- program executed DISPATCH EXIT without an 


INTDEQ 


Further Reference: Messages and Codes 
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INDICATIVE DUMPS 


e Advantages ~ 
-- Speeds debugging time 
-- Reduces disk space and paper usage 


@ SNAP-IDs 114, 118, and 126 are eligible 
-- Except when in thread 0 


e Areas dumped 
-- Spie Save Area - 126 - failing program regs 
- 118 - SYCT400 regs 
-- Program Check, TCTV or ENQ Time-out message 
-- Neighborhood of failing instruction - 126 only 
-- Resource Manager Save Area (RMSAVE) | 
-- SPA, USERSPA, SPAEXT 2 
-- ITCB, SYCTTBL 
-- SS Controller S/A, SS parm list, input message 
-- Subsystem (COBOL/non-reentrant), SCTEXT 
-- Dynamically loaded subroutines (if any) 
-- Thread resources (core, files accessed, etc.) 


@ GPSS command STRT/STOP INDUMP/INDALL/IND114-118-126 


Installation SPALIST INDUMP 
SYCTTBL INDUMP 
Program Request: PMISNAP ..., INDUMP=YES 
(honored only if global INDUMP option is on) 2 


Further Reference: Operating Reference Manual 
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C 


SPINOFF SNAPS 


@ Advantage--SNAPs can be printed ("spun off") during 
the course of Intercomm execution, rather than at 
Intercomm closedown. Particularly useful for 
debugging and reloading Dynamically Loaded 
subsystems/Subroutines. 


e Operation 


-- SNAPs are written to the SNAPDD dataset on disk 


-- When the total accumulated SNAP output reaches 
the number of pages specified by the SNAPPGS 
parameter of the SPALIST macro, SNAPDD is 
closed. 


-- SNAPDD is renamed dynamically and message 
MPO1LOA is issued: ‘A SNAP DATA SET HAS BEEN 
CREATED NAMED XXXX----XXXX ON VOLUME ZZZZZZ, ' 


-- The dataset XXXX----XXXX can now be printed 
using IEBGENER, 


-- New space is dynamically allocated on volume 
ZZZZ7ZZ to hold subsequent SNAPs. 


-- If reallocation cannot be done, subsequent 
Snaps spooled to NEWSNAP if in JCL. 


14.3 Spinoff Snaps 
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SPINOFF SNAPS (continued) 


Installation Checklist 


SPALIST SNAPPGS 
Linkedit Automatic 
Modules SPINOFF 
Datasets SNAPDD disk 
NEWSNAP SYSOUT=A 


if SNAPDD is SYSOUT, code 
FREE=CLOSE to have snaps spun off 


USER EXIT: SPINEXIT 


--can be used to generate internal Job to print 
completed SNAPDD data set. 


Further Reference: Operating Reference Manual 


14,3 Spinoff Snaps 
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FAST SNAPS 


@e Advantage-depending on region size and supervisor 
in use, fast snaps can save up to 90% elapsed time. 


@ Requested by PMISNAP FAST=YES. 


@ Automatic for SNAPs 114, 118, 126 if INDUMP off, 


e If user-requested, standard (Slow Snap) parameters 
must also be defined for PMISNAP macro. 


@e Printed via IBM Utility--AMDPRDMP. 


Installation Checklist 


Prerequisites: 


@ MRSVC or IISVC 


@ SPINOFF SNAP Facility 


Assemblies: PMISNAP1 STARTUPS 


Dataset FASTSNAP disk 


Further Reference: Operating Reference Manual 
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PMISNAP MACRO 


DCB-address Default: PMISNAP in PMISNAP1 
DDNAME = SNAPDD 


If FAST=YES: FASTSNAP DCB in PMISNAPL 
DDNAME = FASTSNAP 


Further Reference: Basic System Macros 


CORE POOL INTEGRITY CHECKING -- RMINTEG 


Refer to Chapter 4: STORAGE MANAGEMENT 


TRAP FACILITY 


Refer to Chapter 4: STORAGE MANAGEMENT 


User-coded additional Entry Point trapping macro: TRAP 


User Exit: USRTRAP 


Further Reference: Operating Reference Manual 


Messages and Codes 
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DWS INTEGRITY CHECKING 


e Detects storage destruction by reentrant COBOL 
subsytems and subroutines. 


e A pad area is added to DWS when it is allocated; 
inspected on each call to COBREENT. 


e If pad area is not intact, a diagnostic message and 
a SNAP 126 are issued (ISK 1,0). 


@ Message -- ‘COBOL DWS AREA TOO SMALL S/S=cccc’ 


@e Should be used in test environment only due to 
processing overhead, 


Installation 

SPALIST DWSCHK= 

SYCTTBL GET= {must be 
FREE= {equal 
LANG=RCOB 


DWSCHK=YES (default is NO) 


Command Control: e@e STRI/STOP DWSCHK (global) 
@ FTUN/SSUP (specific SYCTTBL) 


Further Reference: COBOL Programmers Guide 
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PROGRAMMING AIDS 


@ Call IJKTRACE--print Dispatcher Qs (WQEs) 


@e Call TDUMP--print thread resources (RCBs) 
--current thread # only or all threads 


@ Call POOLDUMP--print ICOMPOOLS 


@  INTTCB Macro--ITCB for current thread # 


@ MMU Snaps--Symbolic Map Area (MAPIN/MAPOUT) 


@ DWSSNAP-- snap parts/all of COBOL DWS or PL/1 DSA to 
--SNAPDD (ID=87) 
--on-line printer 
--input message terminal (partial data only) 


e SCTL command 
--internally generate to snap Save/Work areas 
to input message terminal/on-line printer 
--on-line display of table areas, addresses 
--locate Csect name from address, 
address from name 
--generate WQE trace, thread dump 
--display core 


Further Reference: Operating Reference Manual 
system Control Commands 
14.5 Problem Determination Aids 
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PMIDEBUG 


Installation 


TCOMLINK DEBUG=YES 
Module PMIDEBUG 


Issues CPU Console WTOR: 
IF INTERCOMM STUCK REPLY CANCEL OR CONTIN 


Do not reply at Startup! 


Use to take region Snapshot if Intercomm problems: 
Reply: CONTIN 
Result: SNAP 32, then WIOR reissued 


Use to cancel Intercomm instead of CPU cancel: 
Reply: CANCEL 
Result: ABEND 032 


Caution: indescriminate use of CONTIN reply in a Production 
system will cause delays up to several minutes in 
response time. Intercomm quiesced until SNAP 
completes. Delay time depends on region size and 
whether Fast Snap in use. 


Further Reference: Messages and Codes, Chapter 6. 
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LINE TRACE FACILITY 


@e Writes short SNAPs to SNAPDD data set at the 
completion of each Front End I/0 operation, 


e Useful in diagnosing Front End problems, when using 
dlmost-but-not-quite plug-to-plug compatible devices, 


@e Activated/deactivated using LTRC command. 


@ Areas Snapped - BIAM: 
-- DCB, IOB 
-- DECB/BLINE and all associated BTERMs 
-- Buffer Area (input) or 
Message Area (output) 

-- BTAMWORK save/work dread of line handler 
-- Line Handler Registers 

R10 -- BTERM R11 -- BLINE 


@ Areas Snapped - VTAM: 
-- LUNIT (LUB) and associated LCOMPs (LUCs) 
-- VRE (8-byte prefix and VTAM RPL) 
-- input buffer or output message area 


@ SNAP IDs -- see Messages and Codes for BIAM 
ID=26 -- VTAM Front End Trace 


Further Reference: Messages and Codes 
System Control Commands 
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se 


SPIV UOTIDUTUWWAaq WETGOld ‘HT 


JOB INTTOOLX 


PSW AT ENTRY TO SNAP 


REGS AT ENTRY TO SNAP 


FLTR O-6 


REGS 0-7 
REGS 8-15 


“STORAGE 


0000C7A0 
0000C7CO 


0001E1CO 
OOO1LELEO 


OOO0OCDAO 
OOOOCDCO 
OOOOCDEO 
OOOOCEDO 
OO00CE20 
OOOOCE 40 
OOOOCE60 
OOOOCE 80 
OOOOCEAO 
OOOOCECO 
OOOOCEEO 
OOO0OCFOO 
OOOOCF 20 
OOO0CF40 
OOOOCF60 
OOOOCFS8O 


OO060ECO 


00000001 


E3CSC9IE2 
40E309C1 


00000000 
00000000 
00080000 
00000100 
00044D8B 
40404040 
00000300 
00000000 
40404040 
00000500 
00000000 
40404940 
00000700 
00000000 
40404040 


OOO60EEO 00000000 00000000 00000000 


LINES 00060F00-00061840 


00061860 00000000 00000000 


00045820 
00045840 
00045860 
00045880 
000458A0 
000458CO 


LINE 000458E0 


6E015982 
ONO0OCDAC 
00000900 
OOO4O0ECS 
00000000 


STEP GO TIME 133708 DATE 90286 
O78DOE00 00037FE6 ILC 2 INTC 0033 
0000000000000000 0000000000000000 
00045850 8E037F98 8E0144D2 00015018 
0000099F 8E01432E OOOOCE04 OOOCCDAC 
00384000 OOOOCDAC OOOOCDAC F3F2F7D3 OOOOCTA4S 
OOSOFFOO 00000000 D4D4E4F3 F2F7F040 FFO11696 
40C109C5 C140D5D6 E340C107 D703C9C3 C1C2D3C5 
C3C54040 
7F6C1078 Q0001099F OO00C7AS 
00010000 00000000 00000000 00000003 00000000 
00000000 OO000F458 0000012C 0000012C 90000012C 
E3C20906 €C4000000 00000087 00000000 00000000 
00000040 00000006 00130000 40404040 E4E2ZE2D09 
00000000 00000000 8080024D 00000200 00000046 
D7C1E4D3 F1000000 00000087 00000000 00000000 
00000047 00000006 00150000 40404040 E3SC5E2E3 
00000000 00000000 8080001F 00000400 00000045 
E3C5E2E3 F2000000 00000087 00000000 00000000 
00000047 00000006 00170000 40404040 E3C5E2E3 
00000000 00000000 8080001F 00000600 00000045 
C3E5C8FO F1000000 00000087 00000000 00000000 
00000047 00000006 00190000 40404040 ESC5SE2ZE3 
00000000 00000000 808002A7 00000800 00000040 
7F6C1078 
7D4040E3 C1O3EB6B C6C50000 00000000 
00000000 00000090 00000000 
SAME AS ABDVE 
OOO1LDFB8 OOOOOOEO AE015954 0000C7A4 O000C7DC 
OOOOCF84 OOO60EC8 00061867 00045838 80045918 
01000000 000458A0 000009A0 00000000 00000000 
00080000 00000000 00000000 00000000 00000000 
00000000 00000000 00000090 00000000 00000000 
SAME AS ABOVE 
00000000 00000000 00000000 


00045900 09400900 00000000 00000000 


Cc 


Cc 


ID = 100 CPUID = 068109515890 PAGE 00000001 
0000000000000000 0000000000000000 
FFFFFFFD OOOODAE4S 00014018 FFFFFFFD 
FFFFFFFO 00045838 4EQOLE1G6GE 4E037F6E 
00000001 04101000 * eo covccccce scl Le eGeeecvnccee® 
02000000 00644080 Pecvvcecccce oMNU3270 eeveevveeve ee eo? 
40E30640 D3C9D5C5 *THIS AREA NOT APPLICABLE TO LINE? 
* TRACE s 
OOO60ECS 00000995 * eocccccceeGeseetecee® 
00000000 00000000 FPerccreccccceescccvcccccerceecesee® 
7F 000000 0080C000 Pocccccccceotecccrccsseceeeceseeeee® 
00000000 8BOBO0OZ2ZA PeoeeTBRODeccccccccccccccccccccee® 
F1000000 00000087 Heocerces covccces USSRlececccee® 
00000006 00140000 Proce cvceverececcccceeenecceceecce® 
00000000 80800023 * PAUL Leeccnccccvrcccccccccccen® 
F1000000 00000087 Perce cncvccecenvecce TESTlecvcccce® 
00000006 00160000 Reeve cccccnecscecceeescccceneeces® 
00000000 808000B0 * TESTZeecccvcccccnccccscecees® 
F3000000 00000087 Fe ccccccevescceoee TEST3 ce ccccce® 
00000006 00180000 EP EREREREETEREEEEEPEEE 
00000000 80800032 * CVHOleccccccccncccccecceccce® 
D7000000 00000087 Focccccccccccccces TESTPeccccee® 
OOo00000C 001A0000 Ferccceccceenceceereeoenece ecocscce® 
* eevee s 
00000000 00000000 * © TALYeFEcc cc ccccvcccee® 
00000000 00000000 Perec eccvccceseccceeecceseconceseee® 
FPeocccccce * 
00000000 OO0O2ZE0A4 * eovcccce® 
OOO0O1E1CO OOOLEIE? PrcoccrecccccncesccceGeneGesesccen es X# 
OOOOCDAC FFFFFFFD Pr eoccccvcccceteccccccccnccccceneccee® 
00000000 00000000 BPecneccreseesecesececcccsceccosecece® 
00000000 00000000 BMeeecHecceccccevcscevscccescnneceen® 
00000000 00000000 Pe occcrcee ee rescccceeececeeceenee® 
00046680 Fr ccc erecceeeeceveccseeeecece * 


WL - LNOLNIYd SIVYL SNIT 


PSE 


SPTV UOTIDUTUWS}98q Wedd S'hT 


JOB OASTEST2 STEP CICSTAP1 TIME 081315 DATE 388274 
PSW AT ENTRY TO SNAP 078D0000 000075E2 ILC 2 INTC 00335 
REGS AT ENTRY TO SNAP 

FLTR O-6 0000000000000000 0000000000000000 

REGS 0-7 0005338C 800075C8 00000000 00000000 

REGS 8-15 003AC808 OOLSFIF4 001354D8 00135498 
-STORAGE 
00135480 
001354A0 010000D0 00000004 000400B6 18E0C040 OOSOE000 O1O1FD&8 
6013546C0 FO0100000 01000000 00000000 06000000 00000000 00000000 
001354E0 00000100 000000C8 00009000 FC000000 00000300 05440000 
00135500 00000000 00000000 40404040 00185018 50000000 00000000 
003AC800 00135498 00000000 00202270 501C90FC 
003AC820 20041000 84800000 0010B168 00000000 0005338C 010000D0 
0O03AC840 00000028 00000000 10309450 00000000 80800005 40000000 
003AC860 00000000 00000000 00000000 00135498 80008012 00000000 
QO3AC880 0035AC358 
00053380 F5C71140 GOFOF87A FIF37AF1 
000533A0 FOF2C940 D5D640D6 ESE3SD7E4 E340D8E4 C5E4C5C4 00000000 


ID = 026 CPUID = 212711953090 PAGE 00000001 
0000000000000000 0000000000000000 
000532C8 701C9202 0010B000 00000600 
701CA466 001CA530 SO1CA50A 400075BE 
D3E4C201 01010089 % LUBscc6% % 
00000000 100080B8 Be se aii erate Grit idaits, Mack anus actea high ie seh ichese Meads (2 Gott 
C&8cC&8F3F5 €1000000 Me sei aahSe Sas 2e? we sate cous et ee HY35A % 
00000000 Cc0000000 Be erat Rd 4 Hee ete eS Ree eae eee 
D3E4C201 Mica | | | AgerNene due goaae LUB. % 
00000000 00000000 Me arch eg ns Mie eid cae oe dae x 
28800000 00000000 DE orig Asc ee& Sito weaon Gea tet tanta car iattar 3 oat wet a nee ake Secs % 
0a0000000 00000000 Meg. Wasiigt hehe Se ae gis coe Wim carne: eed eae sea as ¥ 
00000000 00000000 ME die we eed hla. oie De ceo RG ate ee cena: Beet & la tees % 
are oa % 
F540D6Cl1l E2C6C3F0 % 5G. 08.13.15 OASFCOx 
¥02I NO OUTPUT QUEUED.... ¥% 
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PERFORMANCE: STATISTICS, TUNING and PREDICTION 


Introduction 


Measurement 


Tuning 


Performance Prediction 
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FACTORS WHICH INFLUENCE PERFORMANCE 


Hardware Factors 
e Terminals and Lines 
@ CPU 
e Main Storage Allocation 
e I/0 Devices 


software Factors 
@ Operating System 
e Monitor 
e Subsystems -- Design and Code 
e Activity in Batch and Data Base Regions 


Human Factors 
@ Peak Periods 
e Operations Staff 
@ Terminal Operators 


All of these factors change from day to day. Thus, 
tuning is an ongoing process. 


15.1 Introduction 386 


SELECTIVE LOG PRINTING AND LOG ANALYSIS 


c. Selectively printing INTERLOG using LOGPRINT-- 
@e DATE e  MMN 
@ TIME e ssc 
@e TERM e LOG CODE 
e BMN e FILE 


Log Analysis 


C 


Further Reference: 


Traffic Histograms 
-- Terminal 

-- Subsystem 

-- Verb 

-- Total Run 
Response Time 

-- Region 

-- Terminal 

-- Subsystem 

-- Verb 

-- Total Run 

Date 

Time 

selected Sorted Output 


15.2 Measurement 


Operating Reference Manual 
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FILE HANDLER STATISTICS 


File Handler Statistics are accumulated for each OS/VS 
dataset processed by Intercomn, and periodically printed on 
SYSPRINT. A final summary is produced at closedown. 


The following statistics are gathered for each file-- 

@ Number of SELECTS 

e Number of accesses 

@ Total number of accesses if broken down by INPUT, 
QUTPUT or detailed by READ, WRITE, GET, PUT 

e Average accesses per SELECT 


If VSAM LSR Pools used, then per buffer size-- 
@ REQ REJ--because not enough buffers 

@ BFRFND--record in buffer-no read needed 

@ BUFRDS--reads to bring in CIs 

Plus for whole pool--STRNO EX and STRMAX 


Commands: 


@ FHST: display statistics for one or all files 
display LSR pool statistics 


@ FILE$STAT: display current status of a specific file - 
type, selects, FAR options used, DISP 


Further Reference: Operating Reference Manual 
system Control Commands 
15.2 Medsurement 
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SYSTEM TUNING STATISTICS (STS) 


Accumulates system-wide service usage information at 
user-specified intervals. Reports on: 


e Current BMN and MMN numbers 

e Count of Dispatcher inactivity WAITs 

@e Message processing and Overflow Disk Queueing 

@e Multiregion message traffic 

e INTERLOG I/0 

@e Dynamic/Overlay Subsystem/Subroutine Loading 

e Store/Fetch activity 

e Subsystem and loaded subroutine activity - 

at closedown only 
INSTALLATION CHECKLIST 
SPALIST STSTIME 
Linkedit INCLUDE INTSTS 
Automatic SUBRPT 
SSRPT 

Dataset STSLOG SYSOUT 


Further Reference: Operating Reference Manual 
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SYSTEM ACCOUNTING AND MEASUREMENT 


Accumulates resource usage information for each message o 
processed by a subsystem, for example: 


Total CPU time 
storage usage 
Overlay and subroutine loads 
File Handler requests 
Dynamic File Allocation requests 
Store/Fetch requests 
MMU requests 
DDQ requests 
Qutput messages created, for terminals or other 
subsystems 
e 1-10 User-defined categories and function exits J 
(for Data Base activity, etc.) 
--USRBKO1-10 
--USRFNO1-10 


Statistics are recorded on INTERLOG on the Subsystem 
thread’s FA log record. 
--Message Header and SAM data, no text. 


Commands: 
@  STRTI/STOP SAM (global control) 
@ FTUN/SSUP (specific subsystem) 
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SYSTEM ACCOUNTING AND MEASUREMENT 


Definition Macro: 


Programming Macro: 


Specification Macro: 


Linkedit 


User Function Exits: 


Dataset 


Dsect: 


Further Reference: 


15.2 Measurement 


INSTALLATION CHECKLIST 


MAPACCT 


USRTRACK 


SYCTTBL 


ICOMLINK 


Modules 


Table 


USRSAMnn 


INTERLOG 


SAMCB 


Operating Reference Manual 
Basic System Macros 


SAM= 


SAM=YES 


SAMSECT 
TRACKMOD 


SAMTABLE 
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DEFINING THE SAM TABLE 


MAPACCT (’bucket-namel’ , bucket, bucket), 
(’bucket-name2’ , bucket) 


SAMTABLE CSECT 
MAPACCT (‘BDAM READS‘, BDAMR) , 
C’CPU TIME’, CPUTIME) ’ 
(“STORAGES‘ , STORAGES) 
END 


APPLICATION PROGRAMMING MACRO 


USRTRACK { BUCKTNO=} 


{ FUNCNO=} 
[, SPA=(r) ] 


Further Reference: Basic System Macros 
Operating Reference Manual 


15.2 Measurement 
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SAM REPORT 
Executed off-line against INTERLOG presorted by 
--subsystem codes 


--terminal-ids 


Linkedit: SAMREPT, SAMRPTIO, 
SAMTABLE (from corresponding on-line system) 


CONTROLLING EXECUTION OF SAM REPORT 


PARM TOTALS MAJOR CONTRO 
SUBO BY SUBSYSTEM CODE SS CODE 
SUBO,DTL | BY SUBSYSTEM CODE, WITH DETAILS SS CODE 
SUBT BY TERMINAL, WITHIN SUBSYSTEM CODE | SS CODE 


UBT,DTL | BY TERMINAL, WITHIN SUBSYSTEM CODE, | SS CODE 
WITH DETAILS 


RMO BY TERMINAL TERMINAL-ID 
TRMO,DTL | BY TERMINAL, WITH DETAILS TERMINAL-ID 
RMS BY SUBSYSTEM CODE WITHIN TERMINAL | TERMINAL-ID 


TRMS,DTL | BY SUBSYSTEM CODE WITHIN TERMINAL, | TERMINAL-ID 
WITH DETAILS 


Further Reference: Operating Reference Manual 
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CORE USE STATISTICS 
Three sets of core use statistics can be accumulated 
with the RMTRACE routine. Statistics are computed and 


printed at intervals. 


Global Statistics -- STORAGE and STORFREE request results 
-- RCB table relocation count 


Core Pool Statistics -- breakdown of STORAGE requests into 
user-defined size ranges 
(COREACCT macro) 

Pool Use Statistics -- measure the effects of different 


choices of pools (ICOMPOOL macros) 


An example was given earlier for RESOURCE MANAGEMENT 


Further Reference: Operating Reference Manual 


15.2 Measurement 
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ONLINE SYSTEM STATUS/STATISTICS REPORT -- TALY 


c TALY dynamically generates a display of information on: 


General Resource Utilization -- TALY$SU 


Status of Dispatcher Queues -- TALY$DS 


Message Traffic by some/all subsystems -- 
TALY$BE/NQ/MU/NC/NS/NP/B* /NG 


Message traffic for a specific subsystem -- 
TALY$BE(SSCh$SSC) 


Front End message traffic -- 
TALY$FE/FQ/FN/FD/FU/BD/BU/VS/VN/VI1/FI1 


Front End traffic for a specific terminal -- 
TALY$FE( tid) 


Current Thread Activity -- TALY$DA 


TALY$RH resets the thread high count to current count 


On each display -- time display generated, region-id 


GPSS subroutine: TALLY uses RPTOO043 


Further Reference: System Control Commands 


15.2 Measurement 
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VTAM NETWORK STATUS DISPLAYS 


VTST command displays VTAM-name, tid-name, flag bytes, J 
active/connected status, locked-to verb, locked-to region-id for: 


Entering (no option) or specific (LU/VTname) terminal 
All VTAM LUs (ALL) 

All connected LUs (CONN) 

All disconnected LUs (NCONN) 

All LUs being acquired (SIM) 

All connected LUs with pending RELREQ (REL) 

All LU6.2 session LUs (ALU6) 

sense data (SENSE sub-option) 


Or totals only of number connected, max allowed, 
LOGONS and SIMLOGONS queued (TOT). Ww 


Requires VTAMSTAT and RPTOOO4S in (CR only) link (automatic). 
e@e TALY command gives total line for VTAM LU displays with: 

e Current sessions count 

@ High sessions count 

@ Maximum sessions allowed 
@ VICNSSNMAX$nnnnn - Use to change max session count. 


Further Reference: System Control Commands J 
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BTAM/TCAM NETWORK STATUS DISPLAYS 


STAT command -- requires BSTAT2 and RPTOOO45 
Linkedit-automatic (CR only) if &BTAM SETB 1 in SETGLOBE 


BTAM NETWORK ERROR STATISTICS DISPLAY 


STAT$ERR displays the accumulated I/O error count for: 
@ One Line 
e All Lines 
@e One Terminal 


NOTE: Requires ERRSTAT=YES coded on each 


@ BLINE 
e BTERM 


to be displayed. 


ERRSTATS must also be included in the linkedit. 


Further Reference: System Control Commands 


15.2 Measurement 
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ON-LINE MULTIREGION STATUS DISPLAY 


COMMS$STATUS (Control Region only) displays the status of: 


All Satellite Regions 

One or more specific Regions 

All Subsystems in all Satellite Regions 

All Subsystems in one or more specific Regions 

One or more specific Subsystems 

All terminals locked to one or more specific Regions 


Region requests display the following: 


STATUS--Active/Stopped 
CAUSE--if stopped 
MESSAGES--# queued (core/DDQ) 


Subsystem requests display the following: 


REGION--region or regions containing SS code 
STATUS--Active/Stopped 

QUEUES--if DDQ defined (YES/NO) (Hold or Region) 
MESSAGES--# queued (core/DDQ) 


Terminal request displays the following: 


Region name, status (top line only) 
Terminal name, status (of LUC if VTAM) 


Further Reference: Multiregion Support Facility 


System Control Commands 
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PERFORMANCE MEASUREMENT 


STROBE/INTERCOMM 
««.to maintain the high 
throughput and fast response 
time of your INTERCOMM 
online operation. 


STROBE/INTERCOMM 


The STROBE/ INTERCOMM feature is a complete program performance measurement tool. It is 
directed at the INTERCOMM online system and the application programs within it. Concise 
summanies of both program usage and dataset usage point out the areas deserving review. 


Those areas can be examined on additional reports which show wherethe computer resources are 
used in meaningful detail.. Execution time is attributed to the source statements within the 
application programs. Data base activity is reported by cylinder. This meaningful detail is readily 
used by the application programmer or data base specialist to maintain the peak efficiency of the 
system. 


STROBE measurement is accomplished by low-volume sampling. The activation of a 
measurement session is controlled by the user. Through a terminal, he or she invokes a Sample 
Control program which initiates and terminates the STROBE measurement session. Measurement 
can be continuous or can be focused on peak time intervals. 


ISOGON 
© CORPORATION 


in cooperation with 
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programart 133 MOUNT AUBURN STREET CAMBRIDGE MASS. 02138 417.441.2090 


STROBE/INTERCOMM SUBSYSTEM SUMMARY 


The Program Section Usage Summary below shows the execution time used by each program 
within each application subsystem. The program RESVSTAT of subsystem RS appears as a big 
consumer of CPU cycles (15.36% of the total). 


FOOULE 
Name 


tea 

elha 

o [| MTEAC™ 
a8 1¢coe" 
ab 1CQea 
Ap Fcoun 
a6 TC9QRe 
ao 1CQaR 
aaorccesa 
ao [COmm 
40 FCOee 
aa TCQOee 
aa UTCar 
qa VEST 
ag ICQORS 
as :Co=ua 
R$ ICyge" 
as ICOARn 
ag [Come 


PROGAAR ICONM 


SEcTIC# 
KARE 


e 

ol MTERCe 
e INTERCE 
Pavinven 
Pavecvca 
PAYREPLY 
PATUPDT 
Pavztal 
oINT CaCR 
RCBatcn 
oT WMITERCH. 
OTESTRCH 
crtsr 
oTMTERCR 
RESVCHG 
ACSVANCY 
RESvSTaT 
RESvTZ 


TOTa.s 


SECTION 


SIZE 


ee PROGRAP SECTIOXK 


CreC. FIME PERCENT 


sOLo 


7201 
{3.435 
tse] 

o69 

2014 

279 


ror ag 


19264 


USAGE SURRARY co 


ExCC. Ving wiSTocaan UNIT |= 0256 PERCENT 
238 $.88 10248 145-98 20.086 


oS SESH OH COKS EE OOOH OHTOHSESEOS FOTO OCOOOOOE 
eFC S OSHA HOSE SHEESH SHE OEESOEOESOHSOOHOS 
oP CSOSEHSHSSHEHESHHHHHHHECHSHSESOEHOHTEHOS 
Pare reyy 

eteevecoece 

eterseneee 

eee 

e 

ateveseseoe 

e 

eteee 

e 

a 

ee 

etteeeaecee 

a 

e 

eC SSCCSHS HOSES SCEHE LET SELES HOOE 


Each entry with a non-zero value on this report is expanded in a subsequent section to show the 
whereabouts of the activity within the section. For IOCS, SVC and INTERCOMM activity which 
supports the entire online operation, the identifying module names and SVC numbers are listed 
with their execution time percentages. 


The summary entry for .INTERCM within a named application subsystem shows the CPU time in 
INTERCOMM control sections in direct support of the named application. In the expanded report 


it appears as follows. 
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While the application programmer cannot alter the coding within such support routines, he 
sometimes can reduce the frequency of use or perhaps substitute an alternative technique which is 
more efficient for his needs. Execution time in SVC and IOCS modules and INTERCOMM 


overhead routines is shown in a similar fashion. 
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STROBE/INTERCOMM DETAILED REPORTS 


The activity within each application program is detailed in the STROBE Program Module Usage 
Report. 
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In this case a Strobe Indexer program has been used to obtain the Cobol source program line 
numbers and paragraph names so that activity can be attnbuted directly by source program 
statement. Here STROBE shows that the paragraph CONTIN-SEARCH accounts for almost all 
the CPU time spent in the application program. Obviously the programmer's performance 
improvement efforts should be focused on this paragraph. 


Activity can be related to source program statements for Cobol, PL/I, Fortran and Assembler 
languages. For other languages or if the optional indexing is not used, the execution activity is 
shown by location. 


STROBE/INTERCOMM DATA BASE REPORTING 


The I/O Facility Utilization Summary lists devices used by device type, unit assignment, volume 
and file. The percentage of run time that the device is busy is shown as well as the percent solo or 
non-overlapped time. This report helps to reveal device contention. 


A Direct Access Utilization Report shows this job’s use of direct access devices, broken down by 
device, file name, and cylinder. Utilization figures include disk arm movement time as well as data 
transfer time. This report will often suggest changes in the allocation of permanent files on a 
particular volume, as well as changes in the assignment of temporary files from unit to unit to 
increase channel utilization and overlap. 
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STROBE/INTERCOMM CONTROL FACILITIES 


Sample Control 


The acquisition of application program samples is controlled by the user at a terminal serviced bya 
Sampling Control program. By issuing commands to STROBE through the Sampling Control 
program, the terminal operator can start sampling, stop sampling, or switch to a new sample set, 
freeing the current sample set to be used to produce a Program Performance Profile. 


Selective Sampling 


Activity during certain periods of the day may be of great interest; activity of periods of no interest 
should be excluded from performance measurement and reporting. Issuing a start command causes 
STROBE to begin sampling (fig. 1). A suspend command causes sampling to be stopped, without 
closing the current sample set. Sampling is resumed when a start command is again issued, and the 
samples are appended to the current sample set. A stop command causes sampling to cease and a 
message to be issued to the operator announcing the release of the sample set. At his convenience, 
the user may then initiate a job to produce the Program Performance Profile. 


Figure | Selective sampling 


Figure 2 Sample set switching 


Sample Set Switching 


Continuous measurement of an online system may be desired, with periodic performance reports 
that can be produced without interrupting performance measurement. A Program Performance 
Profile may be produced from a sample set while sampling continues (fig. 2). This is accomplished 
by first using a switch command. This command causes one sample data set to be closed and an 
alternate to be opened, and a message to be issued to the operator announcing the release of the first 
sample set. A Program Performance Profile may then be produced fronr the released sample set 
while samples continue to be collected in the alternate data set. 


Specifications are subject to change. 402 
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SYSTEM TUNING 


@ Response Time--Measure of Individual Messages 


@ Throughput--Measure of Total System Performance 


PURPOSE OF TUNING 


@ Bring Activity Into Balance 
@ Trade-Offs 
-- Priority 


-- Facility/Service Routine Usage 
-- User Requirements 
-- Resources 


LINKEDIT ORDERING 


g Reduces Page Faults, MVS Paging 


@ Guidelines--See Operating Reference Manual 


15.3 Tuning jas 


SUBSYSTEM CONSIDERATIONS 


subsystem Program Logic 
e Judicious use of exclusive control 
e Use small, single purpose subsystems 
e Consider thread subtasking 
subsystem Residency 
e Resident subsystems 
e Dynamically loaded subsystems 
@ Overlay Region A 
e Execution groups 
Limiting Concurrency 
e@ MNCL 
@ RESOURC 
Execution Priority 
@e SYCTTBL PRIY parameter 


Logging 
@ YES/NO 
e Asynchronous/Synchronous 
e Restart 
Avoiding SNAP Delays 
@ FASTSNAP 


@ Indicative Dumps 
@ SYCTTBL SNAP parameter 
Time-Delay Processing 
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FRONT END CONSIDERATIONS 


e Verb Table 
--EDIT, HPRTY, etc. 

e Terminal Queues 
--core vs, disk 

@ Network Table 
--CRT and/or CONV processing 
--Message segmenting 
--Terminals per line - BTAM 

@ Polling List Table - BTAM 
--General vs. Specific 
--Qpen/Auto/Wrap 

@ Execution Priority - BTAM/TCAM 
--SETENV - &FEPRTY 

e Printer output spooling via DDQ Facility 
--Reduces queuing 
--Reduces core usage 
--Adds file I/0 overhead 

@ Logging - YES/NO 
--Asynchronous/Synchronous 
--Restart 


NOTE: The order of verbs in the Verb Table is unimportant 
(binary search performed on the verb index). 


Further Reference: BTAM Terminal Support Users Guide 
SNA Terminal Support Guide 
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SUBPOOL SPACE AND SCHEDULING CRITERIA 


e Core management to reduce MVS GETMAIN/FREEMAIN processing 2 
-- Core Use Statistics 
-- (COREACCT macro 
-- Keep pools tuned 


e "Count of maximum usage" (TALY$MU) 
Number of times MNCL messages processed concurrently 


e Avoiding fragmentation 
-- QPEN frequently used files at startup 
-- VSAM files - use LSR Pools (buffer pools) 
-- Avoid "partial frees" 


@ SPALIST parameters 2) 
-- MMNCL (SCTL command) 
-- MDELY (SCTL command) 


-- TASKNUM (reassemble INTSPA) 
-- MAXLOAD (LOAD command) 
-- STOCORE (SCTL command) 


@e Other SYCTTBL parameters 
-- NUMCL 
-- PRYMSGS 
-- DFLN, PCEN 
-- See Chapter 2 - Message Management 
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OTHER CONSIDERATIONS 


e Data set/Pack placement 
-- Program Libraries (DYNLLIB) 
-- Queues (PMIQUE, BTAMQ, DDQs, etc.) 
-- §tore/Fetch Files (MMU, User) 
-- Page Facility data sets 
-- INTERLOG 
-- SNAP disk data sets 
-- User Files/DBMS Files 
-- MVS Page data sets 
-- JES spool packs 
-- JCL - list in decreasing order of # of SELECTs 


e User Files 
-- Blocking factor (block size/CI size) 
decrease if frequent updating 
-- VSAM files - 
If reading sequentially - do not use GETV for update 
until specific record found 
If update via path and base - use DSN FAR option 


e Utility Tables -- from RCTO00, VRBOOO, SECO00 
-- Make frequently used entries core resident 


e Multiregion 
-- Large in-core queues , 
-- 4k minimum CSA size for inter-region message transfer 


15.3 Tuning 407 


GPSS STRT/STOP COMMANDS 


Allows User to dynamically Start/Stop 


Core Pools Integrity Checking/TRAP 
Indicative Dump Processing 
Printing Resource Management Statistics 
Logging Options 

-- All 

-- Back End 

-- Front End 

-- File Recovery 

SAM Statistics Gathering 

Program Loop Checking 

COBOL DWS Overflow Checking 

User Functions (by number) 


SPALIST SSNUM parameter 


Programming Macros: 


@ = SSSTART 
@ = SSSTOP 
@ = SSTEST 


Further Reference: System Control Commands 
Basic System Macros 
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QUEUE CONTROL COMMANDS 


For a BTAM/TCAM/VTAM Terminal: 


@ FLSH--one/some/all queued messages 
TPUname or VTvtam-id 


@e RLSE--release next message queued for CRT 


@ QHLD--stop transmission of queued output 
TPUname or VTvtam-id 


@ QRLS--allow transmission of queued output 
TPUname or VTvtam-id 


@ TDWN--ATDname - reroute down BTAM/TCAM terminal 
output 


@ SPLU--ATDname/vtam-id - reroute down LU output 


For a Subsystem: 


@e SSFL--flush one/some/all queued messages 


@ MNCL--change processing concurrency 


Further Reference: System Control Commands 
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FILE CONTROL COMMAND 


Allow altering access status of a data set: 


LOCK--prevent I/0 operations (SELECT) 


UNLOCK--allow I/0 operations 


FEOV--force end of volume 
(see also SPALIST - GPSSEC) 


CLOSE--temporarily close a file 
(next access reopens it) 


CLOSE$LOCK--permanently close a file 
(until UNLOCKed) 


ALTER--processing options 
(READONLY /WRITES/WRITEOVER) 


DEALL--deallocate a file (change SYSOUT class) 


ALLOC--redllocate previously deallocated file 


CANCEL--incompleted LOCK/CLOSE/ALTER/DEALL 
(allows resumption of subsystem activity) 


Further Reference: System Control Commands 
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SUBSYSTEM CONTROL COMMANDS 


To Dynamically Tune Subsystem Characteristcs: 


@  BEGN @ MNCL @ SPAC 


@  DELY @ PRIY e TCIV 


Processed by FINTUNER subsystem. 
Uses RPTOO009, RPTOOO10, RPTO0022, RPTOO0Z29. 


To Dynamically Alter Subsystem Processing: 


@ FTUN @ = SSUP 


Processed by DYNSSUP subsystem, 
Uses MMU to generate/edit displays (Maps coded in program). 


BIVERB and SYCTTBL coding provided. 
Linkedit-automatic. 


Further Reference: System Control Commands 
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MMU CONTROL COMMANDS 


@ LMAP--reload a Map Group 
requires load library data set concatenated 
to STEPLIB (DISP=SHR) 


@ MMUC--display Map template, printer maps 
delete in-core copy of Map Group 
display last assembly date/time 


PAGE FACILITY CONTROL COMMANDS 


@e SAVE--Save a response group of pages 
(not recommended) 


@ PAGESREPORT-list saved response groups 
TC--terminate (delete) current response 
TH--delete all responses except first 
TL--delete only the last response 
TA--delete all response groups 


MULTIREGION CONTROL COMMANDS 


NRCD/IMCD$RCONTROL--bring down only CR 
COMMSDOWN/QDOWNSrrrrrrre--NRCD/IMCD specific SR 


Further Reference: System Control Commands 
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INTERCOMM QUIESCE 


Before Stop CPU - After Start CPU 


WTOR Replys: TCOMHALT ICOMSTART 


@e Puts Region in ‘HARDWAIT’ status 


@ Prevents Subsystem Timeouts 
(Timer WQEs adjusted) 


@ Processing - PMIHARDW (include in linkedit) 


NOTE: To re-IPL CCU (Communications Control Unit) 


1. SPLG--all line groups (close DCBs) and/or 
VTICN$HALT{[$QUICK] --close VTAM Front End 


2. Re-IPL--37xx, etc. 


3, STLG--all line groups (open DCBs) and/or 
VICNS$START--restart VIAM Front End 


Further Reference: Messages and Codes 
System Control Commands 
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PERFORMANCE PREDICTION 


@ LOGINPUT 


@ BTAM TERMINAL SIMULATION 


15.4 Performance Prediction 
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LOGINPUT 
Allows an INTERLOG created in a previous Intercomn 
execution to be used as input to a subsequent execution. 
Arrival rates of messages can be adjusted to perform volume 
testing. Only 01 log records are used. 
Log input and "live" input can be mixed. 
Also useful for regression and message peak testing. 


Can be used in Test Mode (one input message required). 


Can be used to update a backup version of a user file 
or DBMS, 


User modification to select only desired 01 log 
records. 


Cannot be used with security installed in "live" 
system, 
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LOG INPUT 
Installation Checklist 


Globals SETGLOBE &LGINRTD 
&LOGINTM 
&GENTERM 
SPALIST LOGINDO 
Definition STATION &GENTERM tid 
Macro 
Assemblies INTSPA 
LOGINPUT 
Table PMISTATB 
Linkedit Modules LOGINPUT 
Dataset LOG INPUT Previous Log 


Further Reference: Operating Reference Manual 


15.4 Performance Prediction 417 


BTAM TERMINAL SIMULATION 


Define VTAM 3270s as local BTAM 3270s 


LIVE and SIMULATED line groups can be mixed 


Define standard BTAM lines in Network Table 


Terminals on simulated lines require individual 
input Data Sets -- DDname = Terminal-id 


SIMCARDS input data set gives terminal-id, input message 
frequency rate for each BTAM terminal to simulate 


I/Q requests trapped by BTAMSIM (include in BTAM link) 


SIM3270 formats 3270 input/output (include in link) 
-- SYSOUT data set for each simulated terminal 


Network/System control commands can be used 


Input Message creation utility 
-- CREATSIM (also 3270 CRTs - SBA sequences) 


Can also be used in Batch Mode 
-- requires BTAM Front End in linkedit 


Further Reference: Operating Reference Manual 
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16 APPLICATION PROGRAM SUPPORT 
16.1 Introduction 
16.2 Application Services 


16.3 Additional Services 
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APPLICATION PROGRAM SUPPORT 


system Manager(s) Responsibility 
e Liason 

Vendor 

Application Groups 
Initial Test Mode 
Production Sysgen and Maintenance 
Maintenance of System Libraries and Tables 
system Tuning 
Expansion Coordination 
system Restart and Backup Procedures 


Application Programmer Responsibilities 


Maintenance of Existing Programs 
Coding and Testing of New Applications 
Table Specifications 


16.1 Introduction 


Implementation Coordination with System Manager 
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DESIGN 


Design of New Applications 


Features 

Files 

Network Considerations 
Coordination 
Reentrancy 
Restart/Recovery 
Priority 

security 

Residency 

Region Location 
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SYSTEM COORDINATION 


Unique Indentifiers 


e fables: 
Verb 
subsystem Codes 
Entry Points/Member Names 
subroutine names (REENTSBS) 
Mapgroup (MMU) 
Report Number (Output) 
Region (MRS-SUBSYS) 


e Data: 
Data Set Name 
DDname 
store/Fetch Key 
DDQ Indentifier 
FAR Specifications 
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TESTING 
@e Test Mode (Back End only) 


@e Terminal Simulation 
-- Batch Mode 
_-- Online 


@e Single Region Online Test System 
-- Dynamically Loaded Subsystems 
Dynamically Loaded Subroutines 


@e Multiregion Test Satellite Region 
-- Dynamically Loaded Subsystems 
-- Dynamically Loaded Subroutines 


e Core Clobbering Control 
-- RMINTEG/TRAP 
-- DWSCHK 


e Program Path Tracing 
-- User Log Entries 
-- DWSSNAP/SCTL command/snaps 
-- TDUMP (program thread only) 
-- IJKTRACE 


Further Reference: Operating Reference Manual 
Programmers Guides 
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APPLICATION SERVICES AND ROUTINES 


e Control Commands 
e Messages 
-- Logging/Restart 
-- Switching and Queuing 
-- Terminal Locking (Verb/Region) 
-- Conversational mode 
e Dispatcher 
-- IJKDELAY 
-- TJKPRINT 
-- I[JKWHOIT 
@ Resources 
-- (Concurrency Control 
-- §torage Management 
-- TDUMP 
@ File Handler 
-- Data Base Interface 
-- DFA 
-- BOF 
-- File Recovery 
@ USERSPA 
e Dynamic Load (Subsystem/Subrout ine) 
-- above 16M line (XA, ESA) 
@e In-core Table Sort - INTSORT 
@ Link Pack Routines 
e Security 
e Checkpointing 
snaps--Core Display, Indicative Dumps 
16.2 Application Services 


APPLICATION SERVICES 
VIA 
BAL MACROS/SUBROUTINES 


@ STORAGE/STORFREE @ = START/STOP FUNCTIONS 
-- SSTEST 

@ PASS/CATCH -- SSSTART 
-- SSSTOP 


@ INTENQ/INTDEQ 
: @ SUBTASK 
@ DISPATCH/INTWAIT/INTPOST 
@ INTTIME/GETDATE 
@ MODCNTRL (SUBMODS) 
@ EXTERM 
@ PMIWTO/PMIWTOR/VWTO/VWTOR 
@ LAYOUT 
@ USRTRACK (MAPACCT) 
-- SAM Statistics @ SSCONV 


@ PMISNAP 


Further Reference: Basic System Macros 
Assembler Language Programmers Guide 
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GENERALIZED SUBTASKING 


@e Subtask Pool Defined Via SPALIST 
-- JASKNUM parameter 
-- General/Special Subtasks 


e Interconmm use: 
-- Dynamic File Allocation - IXFDYNAM 
-- FILE Command - DEALL/ALLOC - IXFDYALC 
-- File Handler - IXFHNDO1 
GET, SETL, ESETL 


e Subsystem Use via SUBTASK Macro 


@e Processing: ICOMTASK 


Further Reference: Operating Reference Manual 
Basic System Macros 
Assembler Language Programmers Guide 
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ADDITIONAL BAL PROGRAMMING MACROS 


CALLIF DSECT Generation 
CALLOVLY BISPA 
CONVERT DVMODIFY DSECT=YES 
DDNFIND IXFDSCTA 
DISABLE INTTCB 
ENABLE MSGHDR 
ENTER SECTB 
EXMVE SPALIST 
EXSS STALIST 
EXTERM VCT SECT=D 
EXTRT 
GETSPA 
HEXCON Inner Macro Parameter Checking 
INTTCB CHKAL 
LINKAGE CHKA2 
QCOUNT CHKA3 
REGA CHKA4 
REGS CHKDE 
ROUND CHKHE 
RTNLINK CHKREG 
SUBLINK CHKRG 
XASWITCH CHKRQ 
CHKYN 


Further Reference: Basic System Macros - 
Assembler Language Programmers Guide 
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ADDITIONAL APPLICATION PROGRAMMING SERVICE OPTIONS 


MMU 

AUTOGEN 

PAGE 

EDIT & OUTPUT 
FORMGEN 
STORE/FETCH 

DDQ 

FECMs 

CONVERSE 

GETSEG 

PMIDATER 

Binary Table Search - BINSRCH 
SECTEST macro (ESS) 
SECUSER (ESS) 


Further Reference: Programmers Guides 
Extended Security System 


User Exits: PREPROGI, PREPROGE 
Add to COBOL Subsystem Parm List, 
clean up added user areas on exit. 
Called by PREPROG (RMPURGE) 


Further Reference: Operating Reference Manual 
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SERVICE ROUTINES -- MESSAGE EDITING/FORMATTING 


Message Mapping Utilities (MMU) 
AUTOGEN 

PAGE 

EDIT and OUTPUT 

CHANGE/DISPLAY 

FORMGEN 


REQUIRED BACK END TERMINAL TABLES 


@ PMISTATB = -- STATION 
-- PMISTOP 
-- DVMODIFY 
@ PMIDEVIB) -- DEVICE 
@ PMIBROAD (optional) -- BCGROUP 


Dsects: STALIST, DEVLISTC, BRODSECT, DVMODIFY(DSECT=YES) 


User Exit: USRSTSCH (sample provided - see description in code) 
Convert real tid-name to generic STATION entry; 
cannot be used for CRTs if security in use. 

Called by PMIEXTRM CEXTERM macro). 
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MMU 


Editing: Positional 
Keyword 
Fixed-length 
Relative-positional 


Formatting: Initial Screen Menu Only 
Symbolic Data Only 


Menu and Data Combined 


Output: Page Overflow 
Segmenting to Device Buffer Size 


Message Routing: Return to Caller 
Pass to FESEND 
Put on PAGE Data Set 
Create a DDQ, queue FECM 
Map Loading: LOADMAPS Utility 
Control Commands: MMUC, LMAP 


Statistics: SAM 


Dsects: MMUVT, MCBDSECT, MDCAREA, MMUDSECT, 
MMUICDST, MMUNFDST, MMUDDMWK 


Further Reference: Message Mapping Utilities 
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AUTOGEN 


Advantages: 
@e Involves end-user in online system design at an 
early stage 


e Relieves application programmers of coding MMU 
map-definition macros 


Limitations: 

@e Devices--3270 CRT 

--Dataspeed 40/1,2 CRTs 

Maps Entire Screen 
No Structured Segments 
No Repetive Fields/Segments 
RELPOS is always relative (to zero) positional 
No VERB/AID/CURSOR field types 


Command: AGEN 


Dsects: ISGFIT, ISGDATA 


Further Reference: Autogen Faciltiy 
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PAGE SERVICE ROUTINE 


APPLICATION 
DATA BASE 


APPLICATIO 
SUBSYSTEM 


SRCHPTBL 
PAGE 

CRTO1 SERVICE PAGETBL 
ROUTINE 


FESEND™ 


* oR OUTPUT or CHANGE/DISPLAY 
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A) 


16.3 


PAGE SUBSYSTEM 


SRCHPTBL 


PAGEMSG 


PAGE 
SUBSYSTEM 


* orn OUTPUT or CHANGE/DISPLAY 
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PAGE COMMANDS 


PAGE, N,n 
Pn 
Sn 
C 
E 


SAVE 


PAGE, REPORT 
TC 
TH 
TA 
TL 


Dsects: PGEDSECT, RQEDSECT 


User Exit: USRPAGEX (sample provided) 
Control adding pages to Page data set. 
Called by PAGE service routine. 


Further Reference: PAGE Facility 
System Control Commands 
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PAGE AND MULTIREGION 


Without RAP-- 
All subsystems using PAGE (including via MMU) must be 
in the same Region (SR or CR). Unless Different 
verbs/SS codes used (use EDIT=YES on BIVERB macros and 
define in local PMIVERBS). In this case Page Data Sets 
and Page Tables must be unique to the region. 

With RAP-- 
May be used in several regions. PAGE Subsystem must be 
defined in each, but PAGE/SAVE verbs in Control Region 
PMIVERBS only (EDIT=BQ in BTVERBs). Data Sets must be 
unique to each region. Can use universal Page Table. 


Further Reference: Multiregion Support Facility 


PAGE AND MMU 


MAPEND Option--C’P’ in byte 2 of the MCW 
All pages (messages) built by MAPEND and sent to Page 
Data Set defined for the associated terminal in Page 
Table. First page sent to terminal. Applies to CRT 
(input/output) devices only, 

Install PAGE Facility as though subsystem were calling it, 
rather than MMU. Retrieve pages at terminal in the 
same manner as though subsystem had created them 
directly, 


Further Reference: Message Mapping Utilities 
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EDIT UTILITY 


EDIT is invoked after a message is passed to a subsystem or 
before a message is queued for a subsystem (Satellite Region). 


Intercom 
Edit 
Subroutines 


Edit Control 
Table 


PMIVERBS 


EDITING 
ROUTINES 
Optional 
Pad Character User-coded 
Table Edit 


Subroutines 


BAL Programming Interfaces: EDITCTRL, PMIFINDB, PMIDLTDB 
Dsect: VERBTBL 
Further Reference: Utilities Users Guide 


Operating Reference Manual 
Assembler Language Programmers Guide 
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OUTPUT UTILITY 


Operates as an Intercom subsystem - PMIOUTPT. 
Creates a terminal dependent message. 


INPUT--Message Data Stream, Item Codes, Length 
OFTs (RPTnnnnn) 


PMISTATB/PMIDEVTB 
Processing: 

1. If VMI=57, do steps 3 and 6 only. 

2. Locate OFT in PMIRCNTB or on RCTOOO, 

3. Verify destination terminal. 

4, Get storage for message formatting. 

5. Format output message using OFT and data from input 
message. Segment message depending on buffer size. 

6. Pass output message(s) to Front End 


(FESEND: Entry Point--PMIOTPUT) 


OUTPUT--Queued Messages(s) 


User Exits: USROTEDT - output message modification (FESEND) 


Dsects: 


USROUTCK - bypass Output processing/queuing 


ALTREPRT, RCTLISTC, REPTABLE 


Further Reference: Utilities Users Guide 
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FORMGEN 


REQUEST FoRMAT DISPLAY FROM OFT 


VERB(s): USER-DEFINED (FGEN) 


PRocESsSING: FORMGEN SUBSYSTEM 


TABLE: FORMTBLE 


FURTHER REFERENCE: SY ON 


UTILITIES UseRS GUIDE 
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DATA PRESERVAT ION/MANIPULAT ION 


@ STATISTICS GATHERING 


@ IJNTER-REGION COMMUNICATION 


@e  INTER-SUBSYSTEM COMMUNICATION 


@ SUBSYSTEM-TERMINAL COMMUNICATION 


VIA 


STORE/FETCH 


DDQ 


FECM 
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STORE/FETCH 


Store/Fetch Applications 


Modular Programming 
Conversational Control 

short Term Storage 

Long Term Storage 
Batch/Online Communication 
Inter-Subsystem Communication 


Store/Fetch Data Strings 
Key--1-48 bytes 


Unique by user design 
Do not use DATA, ISYS 


Data--Less than 32K 


Store/Fetch Required For: 


MMU 
Autogen 
Data Entry 


Data Sets: INTSTORn (0-9)--Keyed BDAM 
Preformat: KEYCREAT Utility 


Further Reference: 


Store/Fetch Facility 
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STORE/FETCH DATA STRINGS 


Ee 


AVAILABILITY STORAGE 


— ——6 —2  --. --e— - a —o—_»—_-~> ——e  -2 —- -< ES I SS SS NY ST, SIDED See nie mene SOLE ne 


UNTIL CLOSEDOWN OR ABEND | CORE OR DISK 


TRANSIENT 
SEMIPERMANENT | ACROSS RESTART DISK 
PERMANENT UNTIL EXPLICIT UNSTORE DISK 


Transient Strings should not be specified for File Recovery. 
File Recovery logging occurs when string written to disk. 


Low Core condition causes Transient Strings to be flushed 
to disk, 


At startup, File Recovery occurs before Store/Fetch Initialization 
Backout-on-the-fly can recover all except: 
-- Transient strings created with ‘keep-in-core’ option. 
-- Transient strings updated or replaced with a ‘keep/hold 
in core’ option. 
Off-Line Dump/Restore/Print Utility: SFDMPRST (DUMPREST) 
Statistics: SAM, STS 


Dsects: SFCOREDS, SFTABLE 
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DYNAMIC DATA QUEUEING 


DDQ Applications 
e Message or data switching between subsystems 
Temporary Storage 
Batch/Online Communication 
MRS Queueing 
segmented messages input 
Data Collection and Statistics Gathering 
Backout-on-the-Fly 


DDQs 
Preformatted BDAM Files 
Data or messages 
Identified by QID 


Services Routines: QBUILD, QOPEN, QCLOSE, 
QREAD, QWRITE 


Statistics: SAM 
Print Utility: DDQPRT (DDQPRINT) 


Dsects: DDQSECTS 


Further Reference: Dynamic Data Queuing Facility 
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DYNAMIC DATA QUEUE TYPES 
@e Transient: -- pass to another subsystem 
-- temporary storage 
-- Single retrieval 
@e Semi-permanent: -- pass or reuse 
-- freed at startup 


-- kept over restart 


@ Permanent: -- exists until explicitly freed 


DDQ PROCESSING OPTIONS 


e Creation: -- Jail 
-- Head 
e Access: -- Sequential 


-- Relative Block 
-- Relative Record 
-- Update 


e Disposition: -- Save 


-- Pass 
-- Free 
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FRONT END CONTROL MESSAGES 


@e Front End Data Queuing (DDQ) 


@ Front End Feedback Messages 


@ Front End Queue (Message) Release 


Processing: FECMMOD 


Dsect: FECMDSEC 


Further Reference: Programmers Guides 
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INTERCOMM 
FOR SYSTEMS PROGRAMMERS 


STUDENT RECORD 


Name 
Company 
Course 


Date 


How do you classify your current position? 


[ ] Application Programmer [ ] Systems Programmer 
[ ] Systems Analyst [ ] Management 
[ ] Other 


What are your objectives in taking this course? 


[ ] Code Application Subsystems [ ] Improve System Performance 
[ ] Read System dumps [ ] Customize Modules 

[ ] Design Applications [ ] Evaluate System 

[ ] Other 


What is your previous experience in data processing? 
Languages 

T/P Applications/Systems 

BDAM/VSAM? S210 Bi ay Oe es ea 


INTERCOMM Courses 


How will you be involved with INTERCOMM? 


[ ] Write Applications [ ] Evaluate 

[ ] Maintain Applications [ ] Management 
[ ] Maintain INTERCOMM Systen [ ] Design 

[ ] Other 


For additional comments, please use the reverse side of this sheet. 
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Cc COURSE EVALUATION 
COURSE NAME 
INSTRUCTOR(S) NAME 
A. PREREQUISITES 
1. Were you aware of the prerequisites for this course? 


2. Did you meet these prerequisites? 


B. OBJECTIVES 


Yes 


DATE 


Yes. No 


1. Were they clearly stated at the beginning of the class? Yes 
2. Did the course meet its objectives? Yes___._ No 
If not, why? 
C. CRITIQUE 
1. In general, how do you rate the class? 


Excellent Good ______ Fair_____ Poor 


Very Good 


What was the strongest element of the course? 


3. What was the weakest element of the course? 
4. How would you improve the course? 
5. Additional comments. (Use other side if necessary.) 


Signature (Optional) 


* WE APPRECIATE YOUR COMMENTS * 


NA ____ 
NA —_ 
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